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Libri firmati JACKSON 


Massimo Mangia 

OLIVETTI MIO: GUIDA ALL USO 

Una guida all'uso, ma anche una precisa fonte di idee e 
di possibili applicazioni. 

Il libro è diviso in 2 sezioni: nella prima sono descritti i 
comandi e le istruzioni del linguaggio BASIC, 
classificati in gruppi funzionali, con un criterio che ne 
semplifica l'apprendimento e la consultazione. 

Nella seconda parte vengono presentati i programmi 
applicativi integrati nel calcolatore, che ne fanno di 
volta in volta una versatile macchina da scrivere, 
un'agenda, un indirizzario o un terminale di un sistema ^ 
remoto. 

192 pagine 
Codice 401B L. 18.000 

Rita Bonelli - Daria Gianni 

M20 LA PROGRAMMAZIONE 
BASIC-PCOS 

Un libro completo sul personal italiano più famoso; 

Per la lettura è richiesta la conoscenza di alcuni 
concetti elementari di informatica di base e dei sistemi 
di numerazione binario, ottale ed esadecimale. 

La presentazione sistematica dei comandi PCOS e 
delle istruzioni BASIC è accompagnata da una ricca 
gamma di esempi e applicazioni, che portano 
gradualmente il lettore a conoscere il sistema operativo 
e le tecniche di programmazione, dalle più semplici a 
quelle più sofisticate 
360 pagine 

Codice 401A L. 30.000 

Rita Bonelli 

IL PRIMO LIBRO PER M24 MS DOS 
E GW BASIC 

Il libro offre una panoramica rapida ma completa sul 
nuovo Personal computer M24 

Il primo capitolo, dopo aver posto l'accento sul binomio 
calcolatore-pacchetti di programmi, che rappresenterà 
sempre di più la carta vincente nell'evoluzione del 
mercato, descrive la configurazione hardware del 
sistema M24, che fa da supporto a diversi sistemi 
operativi e diversi linguaggi. 

Segue un capitolo che illustra l'utilizzo della macchina 
nei diversi campi e le prove di alcuni pacchetti di 
software disponibili. 

Gli ultimi due capitoli descrivono uno dei sistemi 
operativi. l'MS-DOS, e uno dei linguaggi, il GW-BASIC, 
riportando alcuni esempi. 

152 pagine 

Codice 401P L. 24.000 
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Qhcnio mese vi prescitiiamo "Il Ca* 
Niello**, un gioco di avventura che vi 
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DITORIALE 


Un chilo di software 


di Riccardo Paolillo 

Con un titolo volutamente provocatorio, vogliamo 
affrontare un problema molto importante e dibattuto: 
la distribuzione, e quindi la diffusione, del software in 
Italia. 

Ci riferiamo in particolare al software commerciale, dai 
prodotti del valore di poche migliaia di lire (come i 
giochi) fino a quelli dal costo molto più elevato dell’area 
gestionale e professionale. 

E quindi evidente come questo problema riguardi un 
po’ tutti, compresi i lettori di Personal Software che pure 
sono sempre stati incoraggiati a crearsi i propri pro¬ 
grammi. 

Abbiamo finora parlato del fenomeno, come di un pro¬ 
blema e non ci sembra di esagerare: la circolazione di 
programmi copiati o comunque diffusi illegalmente è 
solamente la punta di un iceberg molto più vasto. Il vero 
nodo è costituito, a nostro giudizio, da uno errato ap¬ 
proccio fatto da alcuni operatori del settore, soprattutto 
rivenditori. 

In molti casi, ancora oggi, si considera in termini di 
sopportazione se non di fastidio vero c proprio, il fatto 
di dover rivendere del software. In pratica, lungi dal 



considerare tale attività fonte di possibili guadagni e 
quindi commercialmente remunerativa, la si intende 
semplicemente come un male necessario alla vendita dei 
computer. 

In definitiva si rinuncia a priori ad investire e guadagna¬ 
re sul software, così come lo si fa con l’hardware, e si 
ricorre a mezzi di vario tipo per fornire il cliente. 

È chiaro che questo atteggiamento, anche se piuttosto 
diffuso, non costituisce di certo la norma: sono tantissi¬ 
mi, senz’altro la maggioranza, i rivenditori che operano 
correttamente e si rendono quindi conto del ruolo fon¬ 
damentale che gioca il software. 

D’altra parte, diffondere abusivamente del software, a 
parte l’ovvia illegalità dell’azione, è molto spesso svan¬ 
taggioso. Infatti chi regala software copiato ha una 
perdita diretta in termini di tempo e supporti magnetici 
impiegati oltre alla perdita, molto più grave economica¬ 
mente, derivante dalla mancata vendita. 

Chi invece rivende a metà prezzo, o meno, dei program¬ 
mi copiati (succede, succede ...), ha un guadagno tutto 
sommato paragonabile a quello che avrebbe vendendo i 
pacchetti originali, ma in cambio, una netta perdita di 
immagine agli occhi dello stesso cliente, danno non 
quantificabile, ma senza dubbio rilevante. 

Molti obiettano che ragionamenti di questo tipo non 
tengono conto deU’acquirente, che in definitiva è colui 
che paga e che ovviamente è interessato a spendere il 
meno possibile. Questo è vero, ma è proprio nell'interes¬ 
se dell’utente finale che occorre adottare politiche di 
rivendita rigorose. 

Se, infatti, è senza dubbio vero che ottenere del software 
gratuitamente è nell’immediato la soluzione ideale, è 
altrettanto vero che in questo modo si crea uno sbilan¬ 
cio economico: quel pacchetto, in realtà, ha un costo 
derivante dal lavoro di chi lo ha prodotto e distribuito. 

I In mancato ritorno economico condizionerebbe ovvia¬ 
mente le produzioni future dei diversi autori. 

Che si tratti di una situazione anomala lo dimostra 
anche il fatto che tutte le persone che vendono o acqui¬ 
stano software copiato, sicuramente si stupirebbero 
molto se un libraio offrisse loro la fotocopia di un libro 
piuttosto che una copia originale, 
fi ovvio clic tutti questi discorsi sono diretti a chi impo¬ 
sta sul software copiato la propria attività commerciale: 
per l’utente finale che regala una copia del suo program¬ 
ma all’amico si può certamente chiudere un occhio, 
anche se l’operazione non è certo lecita. Ma, d’altra 
parte, scagli la prima pietra chi, in vita sua, non ha mai 
fotocopiato un libro! _ 
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Libri firmati JACKSON 


Maurizio Piccoli 

FENDER 

storia di un mito (1945-1985) 

Sono trascorsi quarant'anni da quando Leo Fender 
iniziò la sua magnifica impresa; questo libro, che pure 
non ha tratto spunto da ragioni celebrative, sicuramente 
è maturato dalla consapevolezza che un arco così 
ampio di tempo richiedesse un’analisi e un ordinato 
recupero della non indifferente mole di dati disponibili 
sulla globalità della produzione Fender. 

Il libro abbraccia tutto ciò che dal 1945 ai giorni nostri 
è uscito con il marchio Fender, privilegiando 
adeguatamente quegli strumenti di maggior interesse 
sui quali si puntano gli occhi dei fans della casa 
americana. 

249 pagine 

codice 800H L. 28.000 


Goffredo Haus 

ELEMENTI DI INFORMATICA 
MUSICALE 

Questo libro è rivolto a chi intende accostarsi 
aN'informatica musicale ed in particolare agli studenti 
universitari di Scienze dell'Informazione, Matematica, 
Fisica e Ingegneria Elettronica. 

È rivolto anche al musicista interessato alle tematiche 
dell'informatica musicale, che disponga di un corredo 
elementare di nozioni sugli elaboratori elettronici. 

Gli argomenti trattati comprendono: elementi di 
matematica di base; descrizione formale di fenomeni 
musicali; tecniche di analisi, elaborazione e sintesi del 
testo musicale; tecniche di analisi, elaborazione e 
sintesi del suono; metodi per la rappresentazione 
grafica di informazioni musicali; elementi di ingegneria 
del software musicale; elementi sulle architetture dei 
sistemi per l'elaborazione musicale; elementi sulle 
tecnologie avanzate utilizzate nel settore. 


232 pagine 

codice 802H L. 22.500 
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Ancora sul linguaggio macchina 
del Commodore 64 

Sono un abbonato di Personal 
Software, e desiderando imparare a 
programmare in linguaggio macchi¬ 
na sul C 64, ho letto gli articoli in 
proposito di Alessandro Guida, ol¬ 
tre al Programmer Reference Guide 
della stessa Commodore. È tutto 
chiaro, tranne un piccolo particola¬ 
re: che nessuno dice come si fa a 
programmare. ' 

Dice Guida: batti Sys 828 e vai alla 
subroutine. E come si mette in mac¬ 
china la subroutine? In BASIC si 
mettono frasi di istruzione, numera¬ 
te progressivamente: che cosa corri¬ 
sponde a ciò nel linguaggio macchi¬ 
na? Ho provato ad inserire i codici 
del programma riportato a pagina 
59 della parte terza degli articoli di 
Guida, andando per tentativi, ma il 
computer non li capisce. E allora? 
Mi sembra che l'argomento venga 
trattato come se si volesse insegnare 
a un selvaggio de Mato Grosso co¬ 


me si fa a guidare l’automobile, spie¬ 
gandogli il motore dei minimi detta¬ 
gli, ma senza dirgli che per guidare 
bisogna prima entrare nelle macchi¬ 
ne e prendere in mano il volante. E 
del resto, questa è un’impressione 
che si ha spesso, leggendo la lettera¬ 
tura divulgativa (o che dovrebbe es¬ 
serlo) del ramo. 

Modestamente, ammetto di essere, 
nei confronti del computer, come 
quel selvaggio: ma se si scrive un 
articolo Impariamo il linguaggio 
macchina non bisogna supporre che 
il lettore sia proprio in queste condi¬ 
zioni? Perché chi lo sa già non ha 
bisogno di leggerlo, trattandosi di 
cose semplicissime una volta appu¬ 
rati certi punti chiave. 

In conclusione, potrei avere quello 
che conta, più di mille parole com¬ 
plicate, e cioè il listao di un piccolo 
programma in linguaggio macchi¬ 
na, così come devo batterlo, punto 
per punto, sulla tastiera? 

Giorgio Zaza 
Rosignano Solvay (LI) 


Ridurre in poche puniate su una rivi¬ 
sta un argomento di questa portata, 
cercando di mantenere un linguaggio 
il più possibile semplice, è sicuramen¬ 
te un'impresa complicata. Nonostan¬ 
te tutto riteniamo che Guida ci sia in 
gran parte riuscito e d'altronde lei 
stesso afferma che è lutto chiaro. 
Riguardo ai suoi dubbi relativi al me¬ 
todo da utilizzare per inserire i pro¬ 
grammi in linguaggio macchina, rite¬ 
niamo che possano essere risolti da 
una attenta lettura delle due prime 
puntate pubblicate rispettivamente 
nei numeri 15 e 17 di Personal Soft¬ 
ware. Nel numero 18, è stato pubbli¬ 
cato un programmino in BASIC che 
consente di introdurre i codici relativi 
a un programma in linguaggio mac¬ 
china. 

Questa procedura è resa obbligatoria 
dal fatto che il C 64, in configurazio¬ 
ne base, è programmabile soltanto in 
BASIC; per poter caricare ed esegui¬ 
re programmi in linguaggio macchina 
occorre sfruttare le istruzioni BA¬ 
SIC, Peek, Poke e Sys. 


E IN EDICOLA 


Bit, 

la prima rivista europea 
di personal computer, 
software, accessori, 
la più prestigiosa 
e più aiffusa in Italia 

con tutta la competenza del 
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Niente paura 

Leggo da molto la vostra rivista e 
posseggo un Commodore 64 più 
floppy disk e sono molto fiero di 
questo computer. 

Mi preoccupa molto l’arrivo dei 
nuovi Commodore in Italia, chiedo 
perciò delle spiegazioni su tre moti¬ 
vi: 

• il mio computer verrà ancora pro¬ 
dotto? 

• se non venisse prodotto ci sarà 
ancora del software? 

• nel caso la produzione cesserà mi 
conviene passare ad un sistema su¬ 
periore? 

Vorrei porvi anche un’altra doman¬ 
da, a Natale mi regaleranno un mo¬ 
nitor: quale marca mi consigliate 


metile al fatto ili cambiare o meno 
calcolatore: lo sostituisca se i nuovi 
modelli o altre macchine di altre mar¬ 
che sono in grado di soddisfare esi¬ 
genze cui il suo attuale computer non 
fa più fronte. Ma se. come ci sembra 
di capire dalla sua lettera, il cambio 
avverrebbe solo per stare al passo con 
le novità, ci sentiamo di sconsigliarla: 
il C 64 è tuttora un'ottima macchina 
in grado di dare grosse soddisfazioni 
*ai suoi utilizzatori. 

Anche se Natale è già trascorso le 
rispondiamo a proposito del monitor: 
riteniamo che Ut scelta più ovvia sia il 
modello 1701 della stessa Commodo¬ 
re che funziona molto bene e possiede 
tutte le caratteristiche indicate, com¬ 
preso il prezzo. 


con queste caratteristiche: 

• a colori; 

• con volume; 

• non tanto ingombrante; 

• che costi sulle 600.000 lire. Parliamo del Sega 


Vania Panizza 
Milano 

Come è noto, poco prima di Natale tu 
Commodore ha iniziato la commer¬ 
cializzazione dei nuovi modelli Cl6e 
Plus 4. Non ci risulta nessuna comuni¬ 
cazione riguardo ad una eventuale 
cessazione della produzione di C 64. 
Anzi, voci sicuramente attendibili, 
danno per certa una lunga vita al po¬ 
polare Commodore. 

D'altra parte, il successo che tuttora 
riscuote, non consentirebbe di certo a 
breve termine una sua uscita di produ¬ 
zione. 

In ogni caso.quando presto o tardi il 
C 64 non verrà più prodotto, si verrà 
automaticamente a creare una situa¬ 
zione per cui l'altissimo numero di 
unità in circolazione, determineranno 
comunque una notevole richiesta di 
so ftw are. Questo fatto tenderà ad al¬ 
lungare la vita del C 64 in modo rile¬ 
vante anche se non completamente 
prevedibile data l'assenza di altri casi 
della stessa portata. 

Da quanto detto può sicuramente 
intuire il nostro consiglio relativa- 


Sono un vostro lettore e quindi 
voglio farvi tutti i mici complimenti 
per questa splendida rivista. Devo 
dirvi, però, che fra tutti i pregi che 
avete, c’è un difetto: perché non 
pubblicate programmi per Sega SC- 
3000, che è un ottimo computer? 

Vi saluto e vi auguro una lunga vita. 
P.S. - Posso mandarvi i miei pro¬ 
grammi per Sega SC-3000? 

Andrea De Luca 
Torre Annunziata (NA) 


La ringraziamo per i complimenti e 
prendiamo atto di quello che secondo 
lei è un difetto. In realtà si tratta di 
una necessità, in quanto non abbiamo 
ancora ricevuto programmi abba¬ 
stanza validi da pubblicare. 

Siamo d'accordo con lei che il Sega 
SC-3000 è un ottimo computer e 
quindi la invitiamo a mandarci i suoi 
programmi che provvederemo a pub¬ 
blicare se di interesse generale. Buon 
lavoro! 



RIVENDITORE AUTORIZZATO 


^cippkz computer ine. 



Software 

Contabilità generale 80CL Prodos 
Contabilità semplificata 
multiaziendale 
Gestione Parrocchie 
Gestione Alberghi 
Parcellazione studi legali 
Fatturazione su MAC 


Hardware 

Interfacce per Olivetti 
ET 121 /201 /221 / 111 
Interfacce per Adler 
G 8008 SE /1005 /1010 /1030 
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Vitalità Sinclair 


Da Londra e dall’Italia una serie di 
notizie riguardanti prodotti ed ap¬ 
plicazioni per le macchine di SirCli- 
ve. Una novità, ormai crediamo già 
disponibile nei negozi italiani, è lo 
ZX Spectrum-f- 48 Kbyte, la versio¬ 
ne potenziata e cresciuta del popola¬ 
re home computer della Sinclair Re¬ 
search, presentato in Inghilterra alla 
fine del 1984. Ha una tastiera final¬ 
mente simile a quella delle macchine 
per scrivere, anche se i progettisti si 
sono presi un po’ di libertà nel di¬ 
sporre alcuni tasti, e viene distribui¬ 
to con un interessante corredo auto- 
didattico. Assieme ad un manuale 
appositamente realizzato da una ca¬ 
sa editrice inglese specializzata nella 
divulgazione dell’informatica, viene 
fornita una cassetta introduttiva di 
nuova concezione della stessa Dor- 
ling Kindersley. ZX Spectrum+ è 
pienamente compatibile con tutto il 
software prodotto per i predecessori 
della stessa serie e adotta anche le 
medesime periferiche. L’inclinazio¬ 



ne della tastiera può essere modifi¬ 
cata ed è stato previsto un tasto per 
resettare il computer senza necessità 
di spegnerlo. Il sistema di espansio¬ 
ne consiste nello ZX Microdrive e 
nell’Interfaccia 1 che lo controlla e 
permette la connessione di altre pe¬ 
riferiche. 

Venendo a casa nostra, ecco Laser, 
un programma per sviluppare, me¬ 



diante ZX Spectrum ,qualsiasi tipo 
di sistema integrale condizionato. Il 
collegamento alla stampante Toto- 
velox permette poi di far stampare le 
schedine contestualmente allo svi¬ 
luppo. Il funzionamento è guidato 
da menu e consente quindi un sem¬ 
plice uso anche a chi non ama molto 
le tastiere; è protetto contro errori 
accidentali e rifiuta le risposte errate 
o non previste. I criteri di base sono 
quelli adottati da tutti i sistemisti e 
consentono l’individuazione di “se¬ 
zioni” di partite e la correzione di 
errori differenziata ed a base ibrida, 
nonché l’applicazione di controlli 
statistici. Realizzato in Assembly 


per guadagnare in efficienza, il pro¬ 
gramma della Totocomputer rag¬ 
gruppa al termine, le colonne sele¬ 
zionate in sistemini integrali, per¬ 
mettendo così una certa economia 
del numero di schedine da stampare 
e convalidare. 

Nel campo della progettazione ecco 
invece Grafex, Graphic Manage¬ 
ment System, un sistema grafico in¬ 
terattivo per il trattamento di archi¬ 
vi ad elementi modulari con conte¬ 
nuti informativi di tipo numerico, 
descrittivo e grafico. Realizzato dal¬ 
la Capware di Ottaviano c distribui¬ 
to in Italia dalla GBC, divisione Re¬ 
bit, Grafex non necessita di elevate 
capacità di memoria e può quindi 
“girare” anche su microcomputer, 
trasformando magari anche uno 
Spectrum in un sofisticato e sempli¬ 
ce strumento di lavoro. Le applica¬ 
zioni? Architettura, impianti, image 
processing, medicina (analisi di elet¬ 
trocardiogrammi, ...), arredamento, 
industria, hobby (modellismo ferro¬ 
viario, trattamento di oggetti com¬ 
ponibili). 

Rebit Computer 

Viale Matteotti, 66 

20092 Cinisello Balsamo (MI) 

Tei 02-6IX1801 

Ulteriori informazioni: 

Columbia Marketing 
Tei 02-77981 


Tavoletta grafica per Apple, 
Commodore 64 e IBM PC 


Per la distribuzione Telav sono di¬ 
sponibili in tutta Italia i prodotti 
Koala per la grafica e la didattica. 
Cominciamo in questo numero a 
proporre la tavoletta grafica e la 
penna ottica, rimandando ad una 
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successiva occasione la presentazio¬ 
ne di altri interessanti prodotti. De¬ 
finito da diffuse riviste estere, come 
uno dei migliori sistemi grafici dis¬ 
ponibili, KoalaPad Touch Tablet è 
un semplice insieme di strumenti e 
programmi per trasformare un ela¬ 
boratore casalingo in una stazione 
grafica di discrete prestazioni. La 
tavoletta è stata realizzata inizial¬ 



mente per macchine basate sulla 
CPU 6502, quali Apple Ile e Ile, 
Atari e Commodore 64, ma oggi vie¬ 
ne fornita anche per l’IBM PC. È 
un’appendice “magica” del compu¬ 
ter: quando si disegna col dito o con 
una punta sulla tavoletta, la stessa 
immagine appare sullo schermo. E’ 
possibile usare la stessa tavoletta per 
modificare i parametri e gli attributi 
del disegno o ottenere l’effetto “zo¬ 
om” per rifinire i particolari. La ver¬ 
sione Commodore è distribuita con 
tre programmi: Koala Painter, perii 
disegno sullo schermo. Koala Prin¬ 
ter per tracciare disegni capaci di 16 
sfumature di grigio con otto modelli 


diversi di stampanti e Instant Pro- 
grammer’s Guide per scrivere appli¬ 
cazioni basate su KoalaPad in BA¬ 
SIC o in Assembly. Per l’Apple II 
sono disponibili Koala Painter e 
Graphics Exhibitor. Quest’ultimo è 
un potente programma per realizza¬ 
re immagini corredate di testo e uti¬ 
lizzare il personal di Cupertino co¬ 
me sistema dimostrativo audiovisi¬ 
vo, proponendo in continuo una se¬ 
rie di schermate precedentemente 
preparate. La penna ottica Gibson è 
un altro notevole prodotto per crea¬ 
re e manipolare oggetti direttamente 
sullo schermo. Corredata di quattro 
programmi Koala, permette di rea¬ 
lizzare disegni animati o di creare 
musiche direttamente sul penta¬ 
gramma che appare sullo schermo 
dell’Apple Ile. Per il Commodore 64 
sono invece disponibili due pro¬ 
grammi di corredo al sistema Gib¬ 
son per disegnare con la penna otti¬ 
ca. 

Telav International S.r.l. 

Via Leonardo da Vinci, -13 
20090 Tre zzano S/N (MI) 

Tel. 02-4435741 


Tecnologia avanzata IBM 


Allargando un po’ il tiro, rispetto 
agli argomenti della nostra rivista, 
ricordiamo che l’IBM ha annuncia¬ 
to e comincia a distribuire il perso¬ 
nal computer AT (Advanced Tech¬ 
nology), basato su un microproces¬ 
sore Intel 80286. Corredato della 
versione 3.0 del DOS, il PC AT può 
essere utilizzato contemporanea¬ 
mente da un massimo di tre utenti e 
dispone per questo scopo di IBM PC 
Xenix, la versione Microsoft di 


Unix. La memoria di massa può rag¬ 
giungere i 41 milioni di caratteri, 
mediante l’impiego di floppy capaci 
di 1.2 Mbyte e dischi fissi da 20 
Mbyte. La memoria centrale può es¬ 
sere estese fino a 3 Mbyte, facilmen¬ 
te indirizzabili dai registri a 24 bit 
dell’80286che adotta invece una pa¬ 
rola di 16 bit per i dati. La velocità di 
esecuzione è almeno doppia (arriva 
anche a tre volte tanto) rispetto agli 
IBM PC della prima generazione. Il 
prezzo della configurazione base di 
questa macchina, dotata di chiave 
per evitare intrusioni non autorizza¬ 
te, non supera i dieci milioni di lire. 

IBM Italia S.p.A. 

20090 Segrate (MI) 

Tel. 02-75484550 


Pokerissimo 
di calcolatrici portatili 


La Levi, che ha concluso in Dicem¬ 
bre il 75mo anno dalla sua fondazio¬ 
ne, presenta cinque nuovi modelli di 
macchine da calcolo per le varie esi¬ 
genze dell’ufficio e dello studio. Non 
tutte sono dotate di capacità di pro¬ 
grammazione, ma hanno delle ca¬ 
ratteristiche che le rendono interes¬ 
santi anche per i nostri lettori. La VS 
1202 è una calcolatrice da ufficio 
portatile, a 12 colonne con stampan- 
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te incorporata. I calcoli IVA sono 
preprogrammati e prevedono tre ar¬ 
rotondamenti. La TP 1106 è molto 
sottile, ma conserva i grandi tasti 
tipici delle applicazioni professiona¬ 
li di questo genere di strumenti. An- 
ch’essa aumentabile a batterie o a 
rete, ha una capacità di 10 cifre ed è 
dotata di una stampante termica ve¬ 
loce. La Levi F 106 a batterie solari, 
ha la forma di un righello e dispone 
di una scala graduata in centimetri e 
pollici: spessa solo 2,5 mm può esse¬ 



re un interessante completamento 
del corredo di lavoro della scrivania. 
Nel campo dell’extrapiatto c’è an¬ 
che la F 103. Sempre a celle solari e 
sul modello delle carte di credito, 
non supera i due millimetri di spes¬ 
sore. Per gli amanti della program¬ 
mazione e del debug, ecco l’ultimo 
acuto del gruppo, la PSR 198, a 10 
cifre e capace di eseguire calcoli e 
conversioni tra sistemi di numera¬ 
zione decimale, esadecimale ed otta- 
le. Prevede anche trasformazioni tra 
diversi sistemi di misura. 

E. Levi & C. S.p.A 
Via Giambellino, 11 
20146 Milano 
Tel. 02-4220960 


Commodore e la scuoia 


L’informatica fin dai primi anni di 
scuola. Come e perche? La Commo¬ 
dore Italiana cerca di contribuire al 
dibattito in corso su questo scottan¬ 
te tema, mediante il progetto LU- 


CAS (L’Uso del Computer nellA 
Scuola dell’obbligo) che è ormai in 
atto da qualche mese in dieci scuole 
elementari o medie della provincia 
di Milano. Ogni istituto coinvolto 
nel progetto messo a punto dal CO¬ 
GL Centro Orientamento Giovani, 
ha ricevuto dalla Commodore un 
laboratorio didattico per la speri¬ 
mentazione. La stessa società ha 
istituito borse di studio per i docenti 
sperimentatori e gli esperti universi¬ 
tari che verificano e coordinano le 



loro attività. Al termine dell’anno 
scolastico una serie di relazioni illu¬ 
strerà i risultati delle esperienze in 
queste scuole “campione”, parlan¬ 
do dell’impatto con discipline quali 
l’educazione linguistica, tecnologica 
e scientifico-matematica. La stessa 
Commodore Italiana ha poi auto¬ 
nomamente avviato il progetto 100 
scuole per mettere a disposizione di 
altrettante elementari e medie del 
nostro paese, laboratori di informa¬ 
tica costituiti da quattro calcolatori, 
memoria di massa, printer plotter, 
software specifico e supporto didat¬ 
tico a titolo di comodato gratuito. 
Ad ogni insegnante coinvolto nel 
progetto viene richiesto un ritorno 
sotto forma di relazioni periodiche 
sul lavoro svolto. La Commodore 


invita, comunque, tutti coloro che 
stanno utilizzando l’elaboratore per 
attività educative, a mettersi in con¬ 
tatto con il suo Ufficio Scuola per 
uno scambio di informazioni e una 
collaborazione che può essere molto 
proficua per entrambe le parti. 

Commodore Italiana S.p.A. 

Via Fratelli Gracchi, 48 
20092 Cinisello Balsamo (MI) 

Tei. 02-61832 


Hit Parade Mastertronic 


I giochi di produzione inglese hanno 
già ottenuto un buon successo nel 
nostro paese, tanto che nel solo me¬ 
se di Settembre il distributore di¬ 
chiara di averne venduti 15.000. Vi 
proponiamo l’elenco dei primi 10, 
secondo le preferenze degli acqui¬ 
renti. 


Videogioco 

Home/personal 

computer 

1: Duck Shoot 

2: BMX Racers 

3: Space Walk 

4: 3 D Maze 

5: Duck Shoot 

6: Mine! Control 

7: Vegas Jackpot 
8: Bullet 

9: Rifle Range 

10: Dark Star 

VIC 20 

Commodore 64 
Commodore 64 

VIC 20 

Commodore 64 
Commodore 64 

VIC 20 

VIC 20 

Spectrum 16/48 Kbyte 
Commodore 64 


Persona 

Tel. 045-592960 

Carla Caccia 
Tel. 02-5455813 
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HOTLINE 

linea telefonica dedicata alla 
risoluzione del problemi dei clienti. 
Chiamando il numero telefonico 
riservato che troverete sulla 
cartolina garanzia acclusa ai 
programmi, riceverete tutte le 
informazioni che vi necessitano. 


UPDATE 

servizio di aggiornamento continuo 
dei programmi acquistati. 

Ogni modifica ai programmi 
realizzati dalla Leoni Informatica 
sarà fornita agli utenti degli stessi. 


GARANZIA 

tutti i programmi Leoni Informatica 
sono coperti da garanzia a Vita 
contro guasti di origine. 


COMMODORE 64* SOFTWARE 


SOFTWARE PER COMMODORE 64 E PLUS/4 Programmi in configurazione base (•> IVA esclusa 


Cod 

□esenzione 

Prezzo 

Cod 

Descrizione 

Prezzo 



PERSONALI 



0046 

Ammortamento Mutui 

60 000 

0049/T 

Totoplus 

100.000 

0050/T 

Totocalcio a sviluppo colonnare 

80000 

0051/T 

Gestione dei Conti di casa 

100.000 

0058/T 

Calcolo dell'equo canone 

80 000 

0055/T 

Impanamo ri BASIC 

100000 

0059/T 

Modello 740 

100000 

0063 

Cento programmi BASIC 

80 000 

0066 

Conto corrente 

100 ooo 

0091/T 

Rubrica telefonica 

100000 

0176 

Diary 64 (Commodore) 

95.000 

0174/T 

Corso di Dattilografia 

80.000 



GESTIONI GENERALI 


0047 

Anagrafiche 

150 000 

0056 

Dichiarazione 1 VA 

60 000 

0065/T 

Fido Clienti 

100000 

0067 

Piano dei Conti (cli/lor/gen) 

100 000 

0068 

Appuntamenti 

100.000 

0071 

Ordini (cli/for) 

100.000 

0090 

Mailing Lisi (riordino alfabetico cap prov ) 

100000 

0094 

Scheda 4800 car (cli/for/rapp./az, etc.) 

100.000 

0096 

Scheda 4800 car agganciala al Mailing 

150 000 

0097 

Super Mail (5 chiavi accesso, riordini ) 

180.000 

0116 

Scadenziario effetti (rie bancarie, tratte, etc ) 

100 ooo 

0120 

Contabilità Iatture (Iva. impon eie ) 

100000 

0121 

Contabilità Semplice (Tratte/Fatt /Conti/etc ) 

250000 

0160 

Bolle o Fatture 

200 000 

0125 

Contabilità Generale (132 colonne) 

300 000 






GESTIONI SPECIFICHE 


0045 

Agenti e Rappresentanti 

150.000 

0048 

Scadenziario premi e polizze 

150.000 

0164 

Agenzie Immobiliari 

150 000 

0086 

Librerie e biblioteche 

120 000 

0148 

Studi Ottici 

200 000 

0151 

Farmacie 

300 000 

0149 

Studi Dentistici 

200 000 

0152 

Sludi Medici 

200 000 

0131 

Hotel o Pensioni 

280 000 

0132 

Parrucchien 

280.000 

0133 

Gommisti 

280000 

0134 

Clubs Nautici 

280.000 

0135 

Officine 

280.000 

0171 

Ristoranti 

280.000 

0170 

Tavola Calda 

280 000 

0172 

Lavanderie 

280 000 

0175 

Condomino New (132 colonne) 

400 000 






GESTIONE TESTI 



0190 

Hes Wntor 

70.000 

0191 

Word Processor III 

100.000 

0192 

Bank Street Writer 

70000 

0319 

Easy Script/T (Commodore) 

75 000 



TECNICI 



0136 

Legge 373 (calcolo degli isolamenti termici) 

100000 

0140 

Ingegneria civile 1 (calcoli strutt ) 

100.000 

0141 

Ingegneria civile II (travi intelaiate) 

100000 

0404 

Computo metrico 

200.000 

0409 

Diagnostica C64 

40 000 

0322 

Doclor 64 

60.000 



MAGAZZINI 



0142 

Magazzino e Fatturazione semplici 

100000 

0143 

Magazzino Grossisti (2500 art) 

280.000 

0144 

Magazzino e Fatturazione agganciati 

200 000 

0158 

Magazzino Dettaglio (2500 art ) 

280.000 

0148 

Magazzino codice alfanumerico (600 art.) 

200 000 

0159 

Magazzino Taglia/Col (2500 art ) 

280.000 



LINGUAGGI & UTILITIES 


0162/T 

Screen Grafix (Abacus) 

85 000 

0183 

Copia Disco singolo 

50 000 

0064 

Petspeed Compiler (Commodore) 

80 000 

0165/T 

Zoom 

70000 

0167 

Simon s Basic (Commodore) 

85 000 

0168/T 

Turbo Tape 

50.000 

0177 

Pilot (linguaggio) 

70 000 

0178 

Ultra Basic 

125.000 

0179 

Comp/Scompactor 

SO 000 

0193/C 

Basic 40 

80.000 

0194 

Sprite Genorator 

70000 

0195 

Assembler 

80.000 

0196 

SAM (Tronix) 

100 000 

0197 

G Pascal 

95000 

0198 

Forth 64 (Commodore) 

95 000 

0199 

Tol 64 

85 000 

0200 

Master (Commodore) 

145 000 

0201/C 

Scheda CP/M (Commodore) 

125000 

0333 

Clone mnehme 

100 000 

0334 

Unguard 

200.000 

0335 

Fast Copy 4 5 

100 000 

0336 

Music Composer 

150.000 

0337 

Basic Programm Generator 

250.000 

0330 

Copy Files 

80.000 

0320 

The MANAGER 64 

100 000 

0321 

Auslro Compilatore 

80.000 

0210 

Lite Pen (incluso sottware) 

130000 






GESTIONE DATI 



0157 

Easy Cale 

125000 

0205 

Super Base 

175.000 

0206 

Magic Desk (Commodore) 

75000 

0207 

Koala Joystick 

100.000 

0209 

Data Log 

120000 

0220 

Easy Cale Tape 

125.000 

0400 

Stock Control 

120 000 

0401 

Easy Label 

120.000 


Leoni 


N.B. (*) Per configurazione base si intende Commodore 64. Floppy 1541, Stampante Commodore a 80 colonne. 
I codici barrati T sono disponibili anche su cassetta, quelli barrati ’C’ sono Cartridge 
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Language Tutor 
per Spectrum 48 Kby te 


Impariamo le lingue 
con il computer!? 


di Mario Manuzzi 

D opo tanti giochi per il 
piccolo-grande Spectrum 
ecco ora un programma 
un poco più serio. 

Oggigiorno conoscere una o più lin¬ 
gue straniere è divenuto non solo 
utile ma necessario; in tutti i settori 
della vita moderna il continuo inter¬ 
scambio tra il nostro paese ed il re¬ 


sto del mondo pone continuamente 
a contatto con realtà che non parla¬ 
no la nostra lingua, purtroppo così 
poco diffusa. È quindi chiaro che chi 
possiede lo strumento per entrare 
facilmente aH’interno di queste real¬ 
tà sarà sempre favorito nel suo cam¬ 
mino, qualunque strada egli decida 
di percorrere. 

Il programma vuole dimostrare che 
anche da un piccolo computer come 

10 Spectrum è possibile ricavare un 
valido aiuto nello studio delle lin¬ 
gue. 

11 principio alla base di questo lavo¬ 
ro è quello del computer-amico, che 
insegna facendo divertire e stimo¬ 


lando l’attenzione: PAL, che in in¬ 
glese significa appunto amico, com¬ 
pagno, ma che può essere anche in¬ 
teso come acrostico di “Play And 
Learn” (gioca ed impara). 

In particolare il programma vuole 
costituire un piccolo aiuto durante 
uno dei momenti più noiosi nell’ap¬ 
prendimento delle lingue: quello 
della ripetizione e memorizzazione 
dei vocaboli stranieri. 

Caratteristiche del programma 

Il programma occupa esattamen¬ 
te 11.752 byte di memoria, mentre le 
variabili circa 28.400. Rimane poco 


Listato 1. // programma Language Tutor. 


DATA 

.5 

LS 

10 


tsse 

w O : 

60RDER 


::::u b'S?A 
LO AD 


1*0 
DATA 
PAPER 1 


LORD * 
PtO 
INK 7: 


PRINT "LANGUAGE TUTOR'" 


12 PRINT '"6/9-1983 © Mario Ma 

nuzzi.n. XX-1984. © PERSONAL SO 

FTUARE“: PAUSE 20© 

40 LET pp =U AL l*(22999 TO 2300 
0) : LET V 0 C =UAL p$ipp,5 TO 7): L 
ET nitri =0 

5© CL5 PRINT “i Dizionario 
Francese-Italiano'"' '"'2 Dizionar 
io Italiano-Francese"''"3 Entra 
ineur linguistique"''"4 Le pend 
y"5 Inserzione nuovi vocabol 

1 51 PRINT '""6 Modifiche dati"' 

"7 Memorizzazione dati.0 S 

TOP "" 


0: IF INK EY * = " ' 0 " THEN 


55 PAUSE 
STOP 

60 IF INKEY $ < 

THEN GO TO 55 
65 GO TO UAL INKEY1000 
1000 CLS : PRINT AT 5,2; INUERSE 
l;"DIZIONARIO FRANCESE-ITALIANO 
PAUSE 50: CLS 
1100 INPUT "Scrivi 
rancese "' LINE a* 

-1 

1110 IF a * = " " THEN 
1150 PRINT AT 5,0; 

1200 FOR n =1 TO PF" 


1" OR INKEY*>"7" 


il VO ca bo lo f 
LET a =LEN a* 


GO TO 1100 
INUERSE l;a $ 
IF a*>=p*(n) 


THEN LET b =UAL P$(n,5 TO 7) : LE 


T C=UAL p$(n+l,5 TO 7): NEXT n 
1300 FOR n=b TO C: LET aa=INT W( 
n ) 

1320 IF a*=l*(aa TO aa+a) THEN G 
0 TO 1600 
1350 NEXT ri 

1400 PRINT AT 12,4; FLASH 1;"UOC 
ABOLO NON MEMORIZZATO": GO TO 18 
90 

1800 let bb=(w(n)-aa)*100-1+aa 
1310 IF a $ < >l$(a a TO bb) THEN PR 
INT '' INUERSE l;l*(aa TO bb) 
1820 PRINT '' INK 0; PAPER 6;l*( 
b b +1 T Ù W ( n +1 ) -1 ) 

1890 PRINT ttl; "Uuo-i cercare altr 
i vocaboli " (s/n/a)" 

1892 PAUSE 0: IF INKEY*="S" OR I 

NKEY * = "5" THEN CLS : GO TO 1050 
1894 IF INKEY * = "a" OR INKEY* = "A” 
THEN PRINT AT 2,15; INUERSE 1;" 
n . " ; n 

1896 IF INKEY* <> "ri" AND INKEY* <> 
"N" THEN GO TO 1892 
1900 GO TO 5© 

2000 CLS : PRINT AT 5,2; INUERSE 

1;"DIZIONARIO ITALIANO-FRANCESE 
■" : PAUSE 50: CLS 

2100 INPUT "Scrivi la parola ita 
liana"' LINE a*: LET a=LEN a*-l 
2110 IF a * = "" THEN GO TO 2100 
2120 PRINT AT 5,0; INUERSE Ila* 
2200 FOR n =1 TO VOC: LET aa=INT 
w(n +1) -1: LET bb =(w(n)-INT w (n) ) 
*100 +INT w Cn) 

2250 IF l*(bb TO bb + a) =a $ THEN G 
0 TO 2800 
2290 NEXT n 

2400 PRINT AT 12,4; FLASH 1;"PAR 
OLA NON MEMORIZZATA” 

2500 print »l;"Uuoi cercare altr 
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spazio libero (circa 14.00 byte), che 
dovrebbe essere lasciato per consen¬ 
tire il regolare funzionamento delle 
varie routine. Data la sua estensione 
può essere caricato solo su Spcc- 
trum 48 Kbyte nonostante sia possi¬ 
bile un adattamento in versione ri¬ 
dotta per Spectrum 16 Kbyte. 

In sintesi, il programma consiste di 2 
parti fondamentali: una prima pre¬ 
ordinata alla creazione di un file dei 
vocaboli che si vogliono memoriz¬ 
zare. ed una seconda che utilizza i 
vocaboli stessi. È inserito anche un 
dizionario bilingue. 

Possono essere utilizzati blocchi di 
circa 1.000 vocaboli (con rispettive | 


traduzioni), ma non può esservi in 
memoria più di un blocco alla volta. 
Oggi vocabolo può avere una lun¬ 
ghezza media di circa 23 caratteri 
ma, venendo questi compattati nel 
vettore L$(), non vi è alcuna limita¬ 
zione né spreco di memoria per vo¬ 
caboli più lunghi o più corti. 

Descrizione del programma 

La struttura del programma è 
molto lineare e comprende 7 opzioni 
principali (figura I ). 

0-65 - Introduzione. Vengono cari¬ 
cati da nastro i caratteri speciali (vo¬ 
cali accentate, ecc.) ed il file con i 


puntatori, viene ricavato il numero 
di vocaboli del file stesso e stampato 
il menu. Alla linea 65 si simula il 
comando On, non presente nel BA¬ 
SIC Sinclair. 

1000-2850 - Dizionario. La ricerca 
viene effettuata in modo diverso e 
assai più rapido dal francese, data la 
struttura particolare del file (vedi 
dopo). E consentito anche inserire 
chiavi di ricerca troncate nel finale. 
Ad esempio se il vocabolo cercato è 
“il vetro, il bicchiere" = “le verre”, 
sono permesse chiavi di ricerca co¬ 
me “il vetro, il bicchiere” oppure “il 
vetro”, “il vetr”, “il ve”, ecc. Pre¬ 
mendo il tasto A si può ottenere la 


i vocaboli ?. (s/n/a)" 

2510 PAUSE 0: IF INKEY*="S" OR I 
NKEY*="S" THEN CL5 : GO TO 2100 
2515 IF INKEY $ = “a" OR INKEY$ = "R“ 
THEN PRINT RT 2,15; INUERSE 1; " 
n . " ; n 

2520 IF INKEY* 0 "n" RND INKEY*<> 
"N" THEN GÙ TO 2510 
2600 GO TO 50 

2800 LET aa =INT w(n + l)-l: IF a*< 
>l$(bb TO aa) THEN PRINT '' INUE 
RSE 1; l* (bb TO aa) 

2350 LET aa =INT w(n): PRINT '' P 
RPER 6; INK 0 ; 1$ (aa TO bb-1) : GO 
TO 2500 

3000 CL5 : PRINT RT 5,2; INUERSE 
1, ‘‘ENTRRINEUR LINGUISTIOUE" : PR 
USE 50 : CLS 

3050 PRINT "1 Scelta casuale"'' 
"2 Inizio da un punto partico-" 
lare" 

3052 PfiUSE 0: IF INKEY*="2" THEN 
LET b =2 : 60 TO 3200 
3054 IF INKEY*<>"1" THEN GÙ TO 3 
052 

3100 LET b = l: LET a = INT (RND*VOC 
+1): CLS : 60 TO 3500 

3200 cls : PRINT "ho in memoria 
' ; voc; " vocabo li" 

3250 INPUT "Da che vocabolo vuoi 
iniziare ?"',a: CLS : GÙ TO 350 

0 

3500 IF a >VO C THEN PRINT FLRSH 1 
;RT 10,0;"NON HO PIU' UOCRBOLI I 
N MEMORIA"; FLRSH 0,RT 21,0;"Pre 
'J n Per continuare": PRU 

SE 0: ULS : Gu TO 50 
3510 LET a a a INT w(a): LET bb=(w( 

3 ; —aa) *i00 + aa : LET cc=INT wia + l) 
-1: LET c*=l*(aa TO bb-1) 


3550 print ''"Trova la parola fr 
ancese "'"che traduce:"'' INUERS 
E l; i* (bb TO cc) 

3530 INPUT "(a/7/ENTER/ STOP )"' 
LINE a* 

3600 IF a $ = C * THEN PRINT ' '"ESRT 
TO !"''"La traduzione corretta e 
'proprio"',' PAPER 6; INK ©;c* : G 
0 TO 3900 

3610 IF a * = "" THEN CLS : GO TO 3 
910 

3620 IF a*=" STOP " THEN GÙ TO 5 
0 

3630 IF a $ = "?" THEN GO TO 3950 
3640 IF a * = "a" THEN CLS : PRINT 
, INUERSE l;"n.";a: GO TO 3550 
3650 LET c =LEN c$: LET a =LEN a* 
3658 IF COa-1 THEN GO TO 3678 
3660 FOR n =1 TO a: LET b*=a*(l T 
O n -1) +a * (n +1 TO a ) 

3670 IF b*=C* THEN CLS : PRINT I 
NUERSE 1,a $, INUERSE 0 '"E quas 
i esatto, riprova d + )" ; go TO 35 
50 

3675 NEXT n 

3673 IF aoc-1 THEN GO TO 3698 
3680 FOR n =1 TO C: LET b$=C*(l T 


O n-l)+c*(n+l TO o 

3690 IF b*=a* THEN CLS : PRINT I 

NUERSE 1;a $; INUERSE 0' ' " E ' quas 

i esatto,riprova (l-)“: 60 TO 35 

50 

3695 NEXT n 

3698 IF a OC THEN GO TO 3750 
3700 FOR n =1 TO a: LET b$=a*: LE 
T b$ (n ) =c * (n ) 

3710 IF b*=C* THEN CLS : PRINT I 
NUERSE 1; a * ; INUERSE 0' '‘ E' quas 
i esatto,riprova (io)": GO TO 3 
550 
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3715 NEXT n 

3750 IF a * < > l $ (aa TO bb-1) THEN 
CLS : PRINT INVERSE l;a$, INUERS 
E 0 ' ' " E ' sbagliato, riprova": GO 
TO 3550 

3900 PRINT ai;"Premi un tasto pe 
r continuare": PAUSE 0: CLS 
3910 IF b=l THEN GO TO 3100 
3920 LET a =a + 1 : GO TO 3500 
3950 PRINT '••"La soluzione e':"' 
PAPER 6; INK 0;l*(aa TO bb-1): 
GO TO 3900 

4.000 CLS : PRINT AT 5,2; INUERSE 
l;"LE PENDU": PAUSE 50: CLS 
4100 RESTORE 4950: LET d=0: LET 
X =240 : GO SUB 4900 
4110 PLOT 238,98: DRAL) 4,0 
4120 LET a = INT (RND*VO C+1) : LET 
aa = INT ut (a) : LET bb= (w(a)-aa) *10 


X Dizionario Francase-Italiano 
s Dizionario Italiano-Francese 

3 Entraineur linguistique 

4 Le pendu 

5 inserzione nuovi vocaboli 

6 Modifiche dati 

7 Memorizzazione dati 
o STOP 

Figura 1. // primo menu con le 7 opzioni principali. 


CHR* 14-6 <C) : £ M 

0 0 56 64 64 64 56 96 

CHR* 146 (E) : * ^ „ 

16 32 92 34 60 32 30 0 

CHR* 152 (I> : » _ 

24 36 0 24 8 6 28 0 

CHR* 160 (0) : e" 

4 2 57 68 120 64 60 0 

CHR* 161 (R) : & „ 

24 36 28 34 60 32 30 0 

CHR* 162 (S) : 3 

28 34 12 2 30 34 30 0 

CHR* 164 (U> : u 

16 40 0 66 68 68 56 0 


Figura 2. Alcuni suggerimenti per la creazione (li ca¬ 
ratteri grafici speciali. Sono indicati il numero del 
carattere, il tasto assegnatogli, il carattere stesso e gli 
8 valori da pokare nell'area lìdg (65368/65535). Si 
può usare un programma del tipo: IO For n=0 To 7: 
Read nn/20 Poke Usr "c"+n,nn / 30 Nc.xt n / 40 Data 
0,0.56,64,64,64,56.96. Qui il carattere creato è "f" e 
gli 8 valori che lo caratterizzano sono contenuti nella 
linea 40. mentre la linea 20 (dopo Usr e le virgolette) 
contiene il tasto da assegnare (in questo caso C). 


0-1+aa : LET cc = INT w(a + l)-l 
4130 LET a $ = l$ (aa TO bb) : LET b = 
LEN a $ : IF b >15 THEN GO TO 4120 
4140 LET b*=" ": FOR n=2 TO b: L 
ET b $ = b $ + " ": NEXT n 
4150 FOR n*l TO b: IF a$(n)<>" " 

AND a*(n)<>“-" AND a$(n)<>. A 

ND astri) < > " ! " THEN PRINT AT 20 , n 
*2 ; " " 

4155 NEXT ri 

4160 PRINT AT 0,0: FOR n=65 TO 7 
7: PRINT INUERSE 1;CHR$ n;" ";: 
NEXT n 

4165 PRINT ": FOR n=78 TO 90: P 
RINT INUERSE 1;CHR* n;" ";: NEXT 


OR a$ (n) ="3" T 
THEN LET a$(n) 


4200 FOR n = l TO b: IF a*(n)="e'" 
OR 3$(n)="è" OR a$(n)="e" THEN L 
ET a* in) ="E" 

4215 IF a*Cn)a"ù" THEN LET a* in) 
s"U" 

4220 IF a$ in)="à" 

HEN LET a* in) ="A" 

4225 IF a* in)= "i" 

»"I" 

4230 IF aj(n) ="f" THEN LET a$(nj 
= "C" 

4235 IF a * in) a"-" THEN LET b*(n) 

a l» • • 

4240 IF a*(n)="!" THEN LET b$in) 

- •• i " 

4245 IF a$(n)=. THEN LET b$(n) 

_ •i / il 

4250 IF CODE a* in) >96 AND CODE a 
$ (ri) <122 THEN LET a$(n)=CHR* (CO 
DE a$ in) -32) 

4260 NEXT n „ 

4290 FOR n = 1 TO b: PRINT AT 19,n 
*2;b* in) : NEXT n 

4300 INPUT "Prova una lettera i? 
/!) "; LINE Ci: IF C$ = "" THEN GO 

TO 4300 „ _ 

4310 IF C $ = "! " THEN RANDuMIZE : 
GO TO 4300 

4320 IF C$="?" THEN GO TO 4785 
4330 LET c * = C *(1) : IF CODE C*>90 
THEN LET C$=CHR* (CODE Cj-32) 
4350 IF CODE C$<78 THEN PRINT AT 
1,(CODE C*-65)*2; 

4360 IF CODE C$>77 THEN PRINT AT 
3, (CODE c *-78) *2;"■" 

4400 LET C=0: FOR n=l TO b 
4410 IF a $ (n) =C$ THEN LET b$(n) = 
C $ : LET C =1 
4420 NEXT n 

4430 FOR n =1 TO b: PRINT AT 19,n 
*2;b* (n): NEXT n 
4450 IF a*=b$ THEN GO TO 4600 
4460 IF C = 1 THEN GO TO 4300 
4470 IF d =8 THEN GO TO 4700 
4500 LET dsd+1: READ X0,y0,X,y 
4520 PLOT X0,y0: DRAU X,y: GO TO 
4300 

4600 FOR n=0 TO 30: BEEP .01,n: 

BEEP .01,30-n: NEXT n 

4605 uUER 1: LET x=240: GO SUB 4 

900 

4610 PLOT 238,98: DRAU 4,0 

4620 OUER 0: LET X=146: GO SUB 4 

900 

4630 PLOT 143,99: DRAU 6,0,PI/2: 
GO TO 4800 

4700 FOR n =20 TO -10 STEP -1: BE 
EP .01,n: NEXT n 

4705 OUER 1: PLOT 255,35: DRhU - 


48,0 

4720 DRAU 0,-30: PLOT 238,98: DR 
AU 4,0 

4730 PLOT 255,37: DRAU -15,-15: 
DRAU —15 15 

4740 OUER 0: PLOT 236,51: DRAU 4 
,21: DRAU 4,-21 

4750 OUER 1: PLOT 255,36: DRAU - 
15,15: DRAU -15,-15 
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476i3 GUER 0 : PLOT 236,30: DRRU 4 
,21: DRRU 4.-21 

4770 PLOT 237,97: DRRU 6,0,-PI/2 
4780 PRINT RT 17,0;"La soluzione 
era : " 

4785 FOR n =1 TO b: PRINT RT 19,n 
*2; INK 0; PRPER 6,a $ in) ; " ": NE 
XT n 

4800 PRINT RT 20,0;" 

“;RT 21,0;"UUO i 9 
iocare ancora ? (s/n)" 

4805 PRINT RT 13,1 ; l$<bb +1 TO CC 
) 

4810 PRUSE 0: IF INKEY$="S" OR I 
NKEY$ = "5" THEN CL5 : GO TO 4080 
4820 IF lNKEY$<>"n" RND INKEY$<> 
“N" THEN GO TO 4810 
4830 GO TO 50 
4900 CIRCLE X,102,3 
4910 PLOT X+4,104: PLOT X-4,104 : 
PLOT X,101 

4920 PLOT X , 93 : DRRU 0,-20 
4925 PLOT x ,71: DRRU 0,-19 
4930 PLOT X-15,36: DRRU 15,15: D 
RRU 15,-15 

4940 PLOT X-15,37: DRRU 15,-15: 

DRRU 15,15: RETURN 

4950 DRTR 120,35,135,0,184,35,0, 

91 

4960 DRTR 168,35,16,16,184,110,1 

4970 DRTR 184,126,68,0,184,110,1 
6,16 

4980 DRTR 204,126,-20,-20,240,12 
6,0, -16 

5000 CLS : PRINT RT 5,2; INVERSE 
1;"INSERZIONE NUOUI UOCRBOLI": 
PRUSE 50 : CLS 

5100 INPUT "Scrivi il vocabolo r' 
rancese "' LINE a$ 

5110 PRINT ' INUERSE l;a$ 

5120 INPUT "Scrivi la traduzione 
italiana"' LINE b$ 

5130 PRINT '' PRPER 6; INK 0;bS 


5150 LET a =LEN a*: LET C =LEN b* + 
a 

Sia© PRINT ttl;"E ' corretto ? (s/ 
n ) " 

5181 PRUSE 0: IF INKEY$="n" OR I 
NKEY$="N" THEN CLS : GO TO 5050 

5182 IF INKEY$ < >"S" RND INKEY*<> 
"S" THEN GO TO 5181 

5190 INPUT "••: PRINT RT 13,7; IN 
UERSE 1;"ATTENDI UN ATTIMO" 

5400 FOR n=PP TO 1 STEP -1: IF p 
$(n) > a $ THEN LET CC=UAL P*(n,5 T 
O 7) +1 : LET p*in,5 TO 7) =STR$ CC 
: NEXT n 

5500 FOR m=VOC TO URL P$ln,5 TO 
7) STEP -1 

5510 LET aa =INT w(m): LET bb= (UM 
m )-aa)*l00 +aa-1 

5520 IF a*<=l$(aa TO bb) THEN NE 
XT m 

5550 LET aa =INT wlm + 1): LET b = IN 
T ( (tu (VOC + 1) +1) /1000) : LET d =INT 
(aa/1000 +1) 

5560 FOR n=b TO d STEP -1: LET l 
tiri *1000 +c TO (n + l) *l000 + c) =1$ (n 
*1000 TO (n+l)*1000): NEXT n 
5570 LET l$ (a a + C TO ( n+1) *1000 + c 
) = i $ (aa TO (n + l) *1000) 

5580 LET l$ (aa TO aa + c-1)=a$+ b $ 
5590 LET w (VOC +2) =INT w (VOC+1) +C 
5600 FOR n = vo C TO m+1 STEP -1: L 
ET win+1)=w(n ) +C: NEXT n 
5650 LET VOC =URL PS(PP,5 TO 7): 
LET w(n+l)=lNT w (n +1) +a /100 
5700 IF MM=1 THEN GO TO 6500 
5800 PRINT RT 13,7; FLASH 1; "PAR 
OLR MEMORIZZATA" 

5810 PRINT 8 l;"Uuoi inserire alt 

ri vocabo li ?. (s/n) " 

5820 PRUSE 0: IF INKEY$="S" OR I 
NKEYi="S” THEN CLS : GO TO 5050 
5840 IF INKEY $ < >"n" RND INKEY$<> 
"N" THEN GO TO 5820 
5900 GO TO 50 

6000 CLS : PRINT RT 5,2; INUERSE 
1;"MODIFICHE DATI": PRUSE 50: C 


posizione del vocabolo nel file (cioè 
1° vocabolo, 2° vocabolo, ecc.). 
3000-3950 - Ripetitore. Chiede di 
trovare il vocabolo francese parten¬ 
do da quello corrispondente italia¬ 
no. E in grado di rilevare se vi è solo 
un piccolo errore ( 1 lettera in più, in 
meno o diversa). “?” dà la soluzio¬ 
ne, “A” il numero di archivio. Stop 
ritorna al 1° menu ed Enter consente 
di passare al prossimo vocabolo, nel 
caso già si conosca la risposta e non 
si voglia perdere tempo a scriverla. 
E possibile scegliere a caso i vocabo¬ 
li oppure partire da un punto preci¬ 
so. Questa seconda possibilità per¬ 
mette di fermarsi quando si vuole e, 
dopo aver fatto un appunto del nu¬ 
mero del vocabolo a cui si è giunti, 
riprendere in un secondo tempo da 
quella stessa posizione senza dover 
ricominciare tutto daccapo. 
4000-4980 - L’impiccato. È una ver¬ 
sione leggermente modificata e mi¬ 
gliorata del gioco presentalo in fon¬ 
do al manuale di istruzioni, per cui 


non necessita di molte spiegazioni. 
Viene estratto a caso un vocabolo 
dall’archivio, modificandolo secon¬ 
do necessità, qualora vi siano carat¬ 
teri speciali o segni di interpunzione. 
“?” per conoscere la soluzione e “!” 
per “rimescolare le carte”, per in¬ 
fluire cioè sulla funzione di estrazio¬ 
ne casuale. 

5000-5900 - Inserzione. Può risulta¬ 
re lenta, poiché comporta il riordi¬ 
namento dell’intero file. Per miglio¬ 
rare la situazione occorre agire sui 
puntatori in PS(). Notare che le linee 
5550-5570 lavorano non sulla matri¬ 
ce intera ma su blocchi di 1.000 byte, 
poiché nell’area di lavoro non c’è 
spazio sufficiente per lavorare sul¬ 
l’intera matrice. 

6100-6590 - Modifiche. Viene can¬ 
cellato il vocabolo scelto ed even¬ 
tualmente sostituito con uno nuovo, 
sfruttando la routine di inserzione, 
che viene segnalata dal flag MM. 
6600-6799 - Modifiche. È una routi¬ 
ne molto importante, che consente 


di abbreviare i tempi di ricerca e di 
inserzione, (vedi dopo). Enter al pri¬ 
mo Input conferma: i vecchi punta¬ 
tori, ad uno successivo ne ferma il 
numero (max. 30). Dopo la modifi¬ 
ca delle stringhe di riferimento ven¬ 
gono calcolati i nuovi valori. Vicino 
ai puntatori attualmente in uso ven¬ 
gono indicate le stringhe di riferi¬ 
mento consigliate dal computer per 
quel numero di puntatori. 
6800-6950 - Modifiche. Controlla se 
per distrazione non siano stati inse¬ 
riti 2 vocaboli uguali, automatica- 
mente o visualizzando l'intero file 
sullo schermo. 

7000-7600 - Memorizzazione. Effet¬ 
to automaticamente il Save ed il Ve- 
rify dei dati. 

9000-9020 - Inizializzazione del file. 
Prepara le variabili per la creazione 
di un nuovo blocco di dati. 

Iniziare il programma 

Una volta battuto con tanta pa¬ 
zienza il listato, lo si può registrare 
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con un Save “language FR” Line 0. 
Una volta ricaricato da nastro parti¬ 
rà automaticamente per caricare il 
file di vocaboli. 

Per poter creare un file di vocaboli 
occorre però dare il Break ed inizia¬ 
re con un Run 9000 (operazione ne¬ 
cessaria all’inizio, dopo la battitura 
del programma, in quanto non esi¬ 
ste ancora il file). La stessa opera¬ 
zione è necessaria ogni qualvolta si 
voglia cancellare un vecchio blocco 
di dati e crearne uno totalmente 
nuovo. 

Attenzione. Non dare mai comandi 
di Run o Clear, che cancellerebbero 
tutti i vocaboli in memoria. In caso 
di Break occorre ripartire con un Go 
To 50,‘che riporta al menu principa¬ 
le. 

Una volta creato un file di vocaboli, 
o modificato un file preesistente, oc¬ 
corre salvarlo tramite l’opzione 7 
del programma. È consigliabile usa¬ 
re una cassetta corta e registrare il 


programma ed i caratteri speciali da 
un lato, riservando l’altro lato per il 
file ed i puntatori, così da evitare il 
rischio di cancellazioni. 


Il file e le variabili 

I vocaboli sono strutturati in ma¬ 
niera un po’ curiosa, per consentirne 
una estrazione più rapida ed una 
gestione più comoda. E un metodo 
che ha comunque vantaggi e svan¬ 
taggi. 

L$(): contiene tutti i vocaboli senza 
interruzione, in modo tale da per¬ 
mettere l’inserzione di vocaboli di 
qualunque lunghezza senza sprechi. 
W(): contiene la posizione dei voca¬ 
boli in L$(). La parte intera del nu¬ 
mero punta al primo carattere del 
vocabolo, la parte decimale indica la 
lunghezza del vocabolo francese. La 
lunghezza della traduzione italiana 
si ottiene facendo riferimento al pri¬ 


mo byte del vocabolo successivo. 
Ad esempio se w( 1 )= 1.11 e 
w(2)=26.10 il primo record inizierà 
dal 1° byte e finirà al 25" byte; il 1" 
campo sarà lungo 11 byte ed il 2° 
invece 14 (26 - (11 + 1)), andando dal 
12° al 25° byte compresi. 

P$(): contiene i puntatori. I primi 4 
caratteri costituiscono le stringhe di 
riferimento ed i successivi 3 il nume¬ 
ro di archivio del primo vocabolo 
successivo (in ordine alfabetico) alla 
stringa di riferimento. 

Quando viene effettuata la ricerca 
dal francese, essendo il file ordinato 
alfabeticamente, non è necessario 
confrontare tutti i vocaboli con la 
stringa di ricerca, ma solo quelli 
compresi tra i 2 puntatori immedia¬ 
tamente superiori ed inferiori alla 
stringa stessa. Se cioè ad esempio la 
stringa di ricerca è “allei*” e lo stato 
dei puntatori è P$(l)=“aaaa001”, 
P $ ( 2 ) = ‘ ‘ 1 1 I 10 30’’, 
P$(3)=“zzzz072”, è chiaro come i 


Seguito listato Language Tutor. 

LS 

5050 PRINT ‘'1 Cancella vocabolo 
‘•''"2 Modifica vo ca bo lo " ' ' "3 M 
odi fica puntatori"''"4 Con troll 
a vocaboli' 

5060 PAUSE 0: LET a =UAL INKEY $ : 
CL3 : IF a=3 THEN GO TO 6500 
6070 IF a=4 THEN GO TO 6800 
6100 IF a =1 THEN PRINT INVERSE 1 
;"CANCELLAZIONE VOCABOLO" 

5110 IF a=2 THEN PRINT INVERSE 1 
;"MODIFICA VOCABOLO" 

5150 PRINT ''"Inserisci il numer 

o di archivio del vocabolo..Se 

non lo conosci premi ENTER e 
cerca la parola nel diziona- ri 
o. Premi a“" per avere il nu-" 
"mero." 

6160 INPUT , LINE a $ : IF a$ = "" T 
HEN GO TO 50 

6200 LET b=UAL a$: LET aa=INT W ( 
b ) : LET b b = ( W ibi -a a ) * 100 + a a : LET 
c c = INT w(b + l)-l: LET c=cc-aa+l 
6205 IF b > V0 C THEN GO TO 6160 
5210 CLS : PRINT 'l $(aa TO bb-1) 
"lt(bb TO CO , 

5220 PRINT ai;"E' questo il voca 
bolo ? (s/n)" 

6225 PAUSE 0: IF INKEY$="n" OR I 
NKEYt="N" THEN CLS : GO TO 6100 
6230 IF INKEY $ < >"S" AND INKEY*O 
"S" THEN GO TO 6225 
6240 INPUT PRINT INVERSE 1; A 

T 13,6,"ATTENDI UN ATTIMO" 

5250 FOR n =1 TO pp: IF p*(n)> = l* 
la a TO bb) THEN LET d =VAL p*(n,5 
TO 7) -1 : LET P$(n,5 TO 7) =STR* 


d 

5255 NEXT n 

5260 LET d =INT (aa/1000 + 1) : LET 
e = INT (w (voc + 1) /1000 +1 ) 

5270 LET l $ f a a TO d*1000)=l* (aa + 
C TO e*1000+0 

5280 FOR n=d TO e: LET l$(n*1000 
T0 (n + 1) *1000) s I $ In *1000 + C T0 ( 
n + 1) *1000 + 0 : NEXT n 
6290 FOR n=b TO VOC: LET W(n)=W( 
n+l)-c: NEXT n: LET W (VOC+1) =0 
6300 LET VOC =UAL p*(pp,5 TO 7) 
6350 IF a =1 THEN PRINT AT 13,5; 
FLASH 1;"VOCABOLO CANCELLATO": G 
0 TO 6900 

6400 PRINT AT 13,6;" 

il 

5450 PRINT AT 5,0: LET mm=l: GO 
TO 5050 

6500 LET mm=0 : PRINT AT 13,5; FL 
ASH 1;"VOCABOLO MODIFICATO" 

6590 GO TO 6900 

6600 PRINT INVERSE 1;"MODIFICA P 
UNTATORI" 

5610 PRINT '"Vocaboli ";voc,"Pun 

tato ri ";pp ' "voc/pp ";voc/(pp-l) 

+ / 

6620 FOR n = 1 TO pp: LET b=VOC / ip 
D-1) * (n-1) : IF bel THEN LET b = l 
6630 LET aa =INT W t b) 

5640 PRINT p $ (n,1 TO 4);"/";i*(a 
a TO aa+3);" ";p*(n,5 TO 7),: NE 
XT n 

6650 FOR n =1 TO 30: INPUT "ENTER 
o nuovo p$(";(n); M ) "; line p*( 
n ) 

5660 IF p$(l)=" " THEN LET 

P$ (1) ="aaaal": PRINT FLASH 1;AT 
18,4;"PUNTATORI CONFERMATI": GO 
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VARIABILI IMPIEGATE 

A$,B$,C’$: stringhe di lavoro multiuso. 
A,B,C,D,E: variabili di lavoro multiuso. 
AA,BB,CC: variabili di lavoro. In gene¬ 
re indicano la posizione in L$()dei vari 
vocaboli. 

N,M: variabili in genere utilizzate in ci¬ 
cli Next/For. 

MM: flag che indica l’uso della routine 
di inserzione durante la modifica di un 
vocabolo. 

PP: numero dei puntatori. È ripetuto in 
L$( 22999 TO 23000). 

VOC: numero dei vocaboli. È ripetuto 
in P$(PP,5 TO 7). 

X,Y,\0,Y0: variabili usate per le posi¬ 
zioni di Plot e Draw. 


due puntatori immediatamente su¬ 
periori ed inferiori alla stringa di 
ricerca “allei*” saranno il primo ed il 
secondo (aaaa<aller>l 111). Di 
conseguenza verranno confrontati 


solo i vocaboli dal 1° al 30°, consen¬ 
tendo di ridurre notevolmente il la¬ 
voro necessario. 


Fantasia e voglia di fare 

Questo programma è stato prepa¬ 
rato specificatamente per lo studio 
del francese, ma è comunque assai 
facile modificare il listato per ren¬ 
derlo adatto all’inglese, al tedesco, 
allo spagnolo od anche al russo, al 
greco od al latino. È possibile utiliz¬ 
zare il programma anche per lingue 
che fanno uso di caratteri diversi da 
quelli normali (ad esempio cirillici, 
greci), agendo sulla variabile di si¬ 
stema Chars (23606), che consente 
di sostituire al normale set disponi¬ 
bile in ROM un nuovo set apposita¬ 
mente creato (eventualmente me¬ 
diante un programma del tipo 
“Graphic Creator” della Llamasoft, 
studiato appunto per questo scopo). 


Lingue come l’inglese non necessita¬ 
no invece nemmeno di altri caratteri 
speciali da creare in aggiunta a quel¬ 
li normali (vocali accentate, ecc.), 
per cui è possibile cancellare senza 
timore, e con risparmio di memoria, 
ogni linea di programma destinata a 
gestire questi ultimi (ad esempio le 
linee 4215-4230). 

Essendo poi il programma struttu¬ 
rato in blocchi pressoché autonomi 
è possibile eliminarne alcuni per so¬ 
stituirli con nuovi. Forse il modo 
migliore di ovviare ai limiti di me¬ 
moria è quello di dividere il pro¬ 
gramma in 2 sottoprogrammi sepa¬ 
rati: il primo preordinato alla co¬ 
struzione del file ed il secondo alla 
sua utilizzazione. 

Lo stesso file è poi senza dubbio 
riutilizzabile in nuovi programmi. 
Insomma la morale è sempre la stes¬ 
sa: fantasia e voglia di fare! Quanto 
visto vuol essere solo uno spunto per 
idee nuove. ■ 


Seguilo Usuilo Language Tutor. 

TO 6900 

6670 IF p$(n)=" “ THEN LET 

p p =n : LET p$(l,l)=" " : LET P$(n) 
="ùuuu"+STR$ VOC: LET l $(22999 T 
0 23000)= STR$ pp: LET n=30 
6680 NEXT n 

6700 FOR n =2 TO PP-1: FOR Mal TO 
VOC: LET aa = INT W(tlì) 

6710 IF ftì = V 0 C OR PJ (n,l TO 4) < = l 
$(aa TO aa+3) THEN LET p*in,5 TO 
7) =5TR$ fi): LET m=VOC 
6720 NEXT fi) : NEXT n 
6750 GL5 : GO TO 660© 

6300 PRINT INUERSE 1CONTROLLO 
UOCABOLI" 

6310 PRINT '"1 Automati CO" " ”2 

Controllato”: pause 0: let c=ua 

L INKEY $ : CLS 

5830 FOR n =1 TO VOC-1: LET aa=IN 
T w(n): LET bb= (w (n)-aa ) *i00+aa - 
1 : LET a = INT W(n+1): LET b=(W(n + 
1 ) -a)* 100+a-1 

6840 IF C =2 THEN PRINT AT 1,0; 1$ 

(aa TO bb) ;.l $ (a Tù b) ; ” 

: PAUSE © 

6850' IF l*(aa Tu bb)=l$(a TO b) 
THEN PRINT ''n;" ";l*(aa TO bb) 

' ' n +1; " “ ; 1$ (a TO b) 

6855 PRINT fiT 0,28; INUERSE 1;n 
6860 N E Xl n 

5390 PRINT FLASH 1;AT 13,5;"DATI 
CONTROLLATI" 

6900 INPUT "": PRINT 81;"UU0i DIO 
di fi care altri dati ? . (s/n) 

6910 PAUSE 0: IF INKEYt="S" OR I 
NKEY$ = "3" THEN CLS : GO TO 6050 


6920 IF INKEY $ < >"n" AND INKEY $ < > 
"N" THEN GO TO 6910 
5950 GO TO 50 

7000 CLS : PRINT AT 5,2; INUERsE 
l;"MEMORIZZAZIONE DATI": PAUSE 
50 

7100 SAUE "FR" DATA l$(): SAUE " 
FR" DATA UlC): SAUE "FR" DATA P*( 

7200’ CLS : PRINT AT 5,2; "RIPORTA 

INDIETRO IL NASTRO. PER IL 

CONTROLLO" „ 

7220 PRINT '" INSERISCI IL CAUE 

TTO. PREMI UN TASTO" 

7250 PRINT ttl;" oppure N per prò 
seguire": PAUSE 0: IF INKEY$="n" 
OR INKEYt="N" THEN GO TO 50 
7350 CLS : PRINT AT 11,4; FLASH 
l;"CONTROLLO REGISTRAZIONE"''' 
7500 UERIFY "" DATA l$(): UERIFY 
"" DATA OM) : UERIFY "" DATA p$( 

) 

7600 CLS : PRINT AT 11,2;"REGIST 

RAZIONE EFFETTUATA. CO 

PRETTAMENTE": PAUSE 100: GO TO 5 
0 

9000 DIM W(999): DIM pSC30,7): D 
IM 1$(23000): LET 1$(22999 TO )= 
"05" 

9010 let p$ (l) ="aaaa l": let p$(2 
)="eaaai": let p s( 3)="maaa2": t LE 
T P$ (4) ="saaa2": LET p$ (5) ="uùùu 
2 " 

9020 LET l$(l TO 46)="l'esclavag 
eia schiavitù'le romarinil r o s ni a 
.-ino": LET W ( 1 ) = 1. 11: LET W (2) =2 
5.1: LET W(3)=47 
9100 GO TO 40 
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AFFIDA I TUOI DATI « 
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Come editori di 
software, abbiamo 
sentito l'esigenza di 
ulilizzare,pei la produ¬ 
zione dei nostri program 
mi, un supporto particolar¬ 
mente affidabile. Dopo severi 
ed accurati test abbiamo opera¬ 
to lo scelta. Siamo lieti di propor¬ 
lo con il nostro marchio a chiunque 
desideri lavorare con la nostra stessa 
tranquillità. Floppy disk da 5” 1/4, sin¬ 
gola faccio, doppia densità, in confezione 
da 10 dischetti. Ordine minimo 10 dischetti. 
Ordini superiori solo multipli di 10 secondo lo 
seguente scala di prezzi 
10 dischetti L. 5.000 cad. 

da 20 a 50 dischetti L. 4.700 cod. 

da 60 a 100 dischetti L. 4 400 cad 

da 110 dischetti e oltre L. 3.900 cad. 

I prezzi sono comprensivi di IVA e spese di spedizione. 


Per ordinare ritagliate e spedite il tagliando sotto riportato a 
J. sofl vi a Rosellini, 12 - 20124 Milano 
Tel. 02/6888228 683797 6880841 6880842 6880843 


vJ disk 


yj.soft 


CEDOLA DI ORDINAZIONE OFFERTA DISCHETTI 

Da compilare e spedire in busta chiusa a 
J. soli - via Rosellini, 12 - 20124 Milano 
Tel. 02/6888228 • 683797 - 6880841 - 6880842 - 6880843 


Ordino i seguenti dischetti, in confezione da 10 pezzi cad., per un imporlo 
totale di L. IVA e spese di spedizione incluse. 

□ N.dischetti (minimo 10 e multipli di IO) 

□ Contanti allegali 

□ Assegno allegato n° . , 

□ Ho spedito l'importo a mezzo vaglia postale 

□ Ho versato l'importo sul CCP n° 19445204 intestato a J. soli - Milano 

□ Pagherò in contrassegno al postino al ricevimento dei dischetti 


Nome . 

Cognome . 

Via ... 

CAP . Città . Prov 

Se richiesta fattura - codice fiscale . 

Data . firma . 

Offerta valida solo per l'Italia. 
























Utilizziamo 
la grafica evoluta 
per il nostro C 64 

di Chiara Tovena 

Introduzione 

T utti i sessantaquattrini 
sanno cosa sono gli sprite; 
quasi tutti i videogame e i 
giochi in generale ne fanno uso e 
certamente avrete già pensato di 
scriverne uno da voi. 

Creare uno sprite però sembra esse¬ 
re un'impresa, stando almeno alle 
descrizioni che forniscono i manua¬ 
li: matrici quadrettate, byteesadeci- 
mali, potenze di due, ecc... 
Benvenuti quindi ai numerosi pro¬ 
grammi utility che permettono di 
disegnarsi comodamente i propri 
sprite senza impazzire,* con facilità 
di modifiche qualora il risultato non 
soddisfacesse. Anche il programma 
che vedremo di seguito è uno Sprite 
Editor, che ha il vantaggio di essere 
il più completo possibile di funzioni 
per permettere aH’utente un lavoro 
veloce, e inoltre di essere molto rifi¬ 
nito. 

Per caricare il programma, prima 
del Load, eseguite un: 

Poke 44,16: Pokc 4096,0 
che serve a spostare più avanti i pun¬ 
tatori del testo BASIC, in modo da 
lasciare spazio, prima del program¬ 
ma stesso, per le sprite. Se vi dimen¬ 
ticate questi Pokc il programma 
partendo se ne accorge e vi chiederà 
di ricaricarlo al posto giusto. 

Se vi interessa solo usarlo, fatelo 
senza problema, ma se siete anche 
interessati alla buona programma¬ 
zione (quanti programmi digitati 
con le dita ... dei piedi si vedono in 
giro!!) allora studiatelo anche, c’è 
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EDIT 8=1 


C=3 


D=4 E=5 


F = 6 6=7 


E,6,P,D,U»C,H,8,L,S,Q ? 


Figura I. Un esempio di figura. 

una sezione apposta che lo descrive 
adeguatamente. Se qualche subrou¬ 
tine poi vi piace, o vi sembra parti¬ 
colarmente utile, inseritela nel vo¬ 
stro “archivio” personale di idee e 
usatela nei vostri programmi. 

Cosa fa il programma 
e come si usa 

Questo programma è stato creato 
per poter comodamente disegnare 
delle figure di sprite, poterle correg¬ 
gere, modificare vedendone subito il 
risultato, anche a colori, specie se si 
va in modo multicolor. L’uso è sem¬ 
plicissimo, tutte le operazioni sono 
pilotate da programma, in fase di 
scelta è sempre presente il menu, e si 
è cercato di sfruttare ogni dettaglio 
per rendere comoda la vita dell’u¬ 
tente (ad esempio i colori sono tutti 
visibili e numerati, ed altri particola¬ 
ri che indicano la cura con cui un 
vero programma di utility dovrebbe 
essere messo a punto). 

Sul video compare anzitutto un reti¬ 


colo di 24x21 puntini, con le tacche 
che delimitano i tre byte in orizzon¬ 
tale e una numerazione verticale che 
facilita il centraggio di un disegno. I 
pallini colorati che compaiono sulla 
sinistra servono a ricordare i colori 
disponibili e sono abbinali al loro 
numero di codice: l’utente non deve 
fare nemmeno lo sforzo di consulta¬ 
re il manuale! 

Sulla destra si accendono gli otto 
sprite: facciamo subito una precisa¬ 
zione: si possono avere visibili con¬ 
temporaneamente solo otto dei 32 
sprite che invéce è possibile tenere in 
memoria. Per non creare confusione 
noi chiameremo sprite i blocchetti di 
64 byte posti in memoria, e figura i 
disegni visualizzati: cosi sulla destra 
si accendono 8 figure: la prima è 
quella di edit (cioè quella sulla quale 
state lavorando sul reticolo e corri¬ 
sponde allo sprite n. 0) e le altre 
visualizzano gli sprite n. 1-7, ma ve¬ 
dremo che è possibile scegliere quale 
sprite vedere. Le figure sono tutte 
vuote, quindi del colore di fondo, e il 
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Figura 2. Un alno sprite. 

colore che apparirà disegnandole è il 
bianco (con possibilità di essere 
cambiato più tardi). 

Sotto ci sono i disegni che servono a 
ricordare i colori selezionati per il 
multicolor: il registro 0 (un puntino 
e un pallino adiacenti sul video), e il 
registro I (due pallini adiacenti). 

In basso il menu: E,G,P,D, 
V,C,M,N,L.,S,Q? e si può scegliere. 
E (Edit): permette di introdurre un 
nuovo sprite: sul reticolo un puntino 
lampeggia e se premete <spazio> 
esso diventa un pallino e la figura di 
edit si accende nel punto corrispon¬ 
dente. Un altro <spazio> nella stes¬ 
sa posizione e il pallino si rispegne 
(comando toggle). Per spostarvi 
avanti e indietro premete i due tasti 
cursore avanti e cursore in basso, e 
per andare in alto e in basso premete 
A e Z. Se arrivate dal bordo della 
riga o della colonna ritornerete 
automaticamente all’inizio dall’al¬ 
tra parte. Man mano che costruite il 
disegno sul reticolo potete vederlo 
visualizzato sulla figura di edit, così 


da avere un riscontro immediato del 
risultato. Per uscire dallo stato di 
edit premere Q. 

P (Put): trasferisce i byte degli sprite 
di edit in un altro dei possibili 31 
blocchetti di dati. Questo perché lo 
sprite di edit è usato solamente per 
disegnare e non è possibile colorarla 
o salvarla su nastro. Bisogna allora 
spostarla in un altro posto: il pro¬ 
gramma chiede “Pul in Sprite (1- 
31)? cioè dove devo metterlo? e si 
risponde col numero dello sprite vo¬ 
luto; i precedenti dati di quella sprite 
vengono naturalmente perduti. Bat¬ 
tendo solamente un <Cr> si esce 
dalla routine senza toccare niente 
(se qualcuno ha premuto P per erro¬ 
re). La sprite comunque rimane an¬ 
che sul reticolo di edit. 

N (New): per ripulire il reticolo di 
edit dopo aver spostato uno sprite 
già disegnato. Il programma chiede 
e si desidera un reticolo tutto vuoto 
o tutto pieno: <E>mpty or <F>ill? 
In un caso cancellerà tutto, nel se¬ 
condo accenderà tutti i punti dello 


sprite. Dipende se Putente» deve di¬ 
segnare una figura per la maggior 
parte piena o vuota. 

G (Get): per spostare uno sprite già 
disegnato nello sprite di edit e poter¬ 
lo modificare ulteriormente. Il pro¬ 
gramma chiede: Get Sprite (1-31)? 
Cioè quale sprite volete editare? Co¬ 
me al solito battendo <Cr>si torna 
al menu senza fare niente. Lo sprite 
letto rimane anche nel suo posto, 
cioè non viene cancellato dalla sua 
posizione. 

D (Data): ovvero come sapere i byte 
che compongono uno sprite. Dopo 
aver chiesto che sprite si desidera 
(Data of Sprite (1-31)?) il program¬ 
ma stampa sul reticolo, in coinci¬ 
denza con le righe e le colonne ap¬ 
propriate, i 63 byte del blocchetto 
scelto. Lo sprite non compare auto¬ 
maticamente anche nella figura di 
edit. Quando avete finito di leggerli, 
o copiarli, battete <Cr>e i numeri 
scompaiono, facendo ricomparire il 
sottostante disegno di edit. 

V (View): per poter visualizzare qua¬ 
lunque blocchetto dati. 

Il comando serve a far puntare una 
certa figura su uno sprite voluto, 
cosi da poter vedere alternativamen¬ 
te tutti i 31 sprite. Viene chiesto: 
“Figure A-G?” cioè in quale figura 
volete far comparire il disegno, e poi 
“View Sprite (1-31)?” cioè quale 
sprite volete vedere. Lo sprite, cioè il 
suo blocchetto di dati, resta li dov’è, 
non viene spostato in memoria; è la 
figura scelta che visualizza un nuovo 
blocco di dati; la scritta sotto la figu¬ 
ra indica sempre quale sprite è vi¬ 
sualizzato in quel momento. 

C (Color): permette di colorare una 
figura. Ogni figura, in modo norma¬ 
le, ha due colori: quello di fondo (nel 
nostro caso il grigio) e un colore 
definibile dall’utente che può sce¬ 
glierlo tra i 16 possibili illustrati dai 
pallini sulla sinistra. Il programma 
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Il Jacksonfono ha il Basic 

Video Basic, corso su cassetta per parlare subito 


Oggi è davvero facile imparare il Basic, con 
Video Basic il corso su cassetta che ti permette 
di programmare subito il tuo computer. È facile: 
tu chiedi, lui risponde, tu impari. 

Passo dopo passo. Sul tuo schermo 
appaiono le domande, le risposte, gli esercizi 


e tu, senza fatica, presto e bene, impari 
a dialogare col tuo computer, sia un VIC 20, 
un Commodore 64 o un Sinclair 
Video Basic è in edicola. Provalo subito. 

Oggi il Basic si impara così. 







GRUPPO 
EDITORIALE 
JACKSON 


omaggio 
una fantastica cassetta giochi. 


in mano. 

col tuo computer. 


GRUPPO ETHOS 







Listato 1. Il programma Sprite Editor. 


1 KEM-SPRITE EDITOR 

2 REM 

3 REM-CHIARA TOVENA 

4 REM 

5 rem-1 5.1 1 .1984-- 

6 REM 

7 REM 


8 IFPEEK(44)<>1bTHENPRINT"[<2CRSR D>]EHI, 
I PUNTATORI 1":PRINT"POKE44,16 :POKE4096,0 

" : END 

9 REM 

10 GOTO 10007 : REM MAIN PRGM 
1 1 REM 

95 REM 
9b REM 

97 REM-ESPANS. SPRITE- 

98 REM 

1 10 PRINT"[<1CLR>] i<1HOME>]"; 

114 ES$ = " . " 

1 1 b PRINT" 0 t<lCHR$(165)>] [<1CHR 

$(1b5)>] [<1CHR$(165)>) [<1CH 

RS (Ibi) >] " 

120 FORI=1T021:IFI<1OTHENPRINT" 

130 PRINTI:NEXT 
140 GOSUB200:RETURN 
1 50 REM 

180 REM-RETICOLO- 

1 90 REM 

200 M$ = "": FORI = 1TO24:M$=M$+ES$:NEXT 

210 PRINT"( < 1HOME>]": FORI = 1T021 :PRINTTAB( 

4)M$:NEXT 

220 RETURN 

230 REM 

240 REM 

300 REM 

310 REM 


320 KEM-INPUT NUM.- 

340 REM 

350 POKECV,23 :POKECH,0 :SYSCP:PRINTCAS 
■355 SYSCP : PRINTDOS ; :SSS = "" 

357 INPUTSSS:CR=SS$="" 

358 IFCRGOTO370 

3b0 SP=VAL(SSS):IFSP<LIORSP>LSTHEN350 
370 RETURN 
380 REM 
390 REM 

400 REM-GET ALF .- 

410 REM 

430 CU$="[<1CHR$(166)>)1<1CRSR L>] 1<1CRS 
R L> ) " 

431 POKECV,23:POKECH,0 :SYSCP:PRINTCAS 
435 SYSCP:PRINTDOS; 

439 REM 

440 REM-ENTRY SENZA POS.CUR-- 

441 L=3:SP$="" 

442 T=0 

443 GETSPS:IFSPS<>""THEN461 

444 T=T+1:IFT< 8G0T0443 

445 L=4-L:PRINTMIDS(CU$,L,2); 

446 G0T0442 

460 REM 

461 CR=SPS=CHR$(13) : RETURN 
470 REM 

500 REM 
510 REM 

520 REM-POSIZ. CURSORE- 

530 REM 

540 CP=820: REM OBJ 

550 FORI = 0TO7:READA:POKECP+I,A :NEXT 

565 CV=CP+1:CH=CP+3 

570 RETURN 

580 REM 

590 REM 

595 REM 


chiede prima quale figura si vuole 
colorare, poi con che colore; e se 
deve apparire in modo normale o 
multicolor. Battendo <Cr> a una 
domanda come al solito si esce dal 
comando. 

M (Multicolor): se la figura è in mul¬ 
ticolor allora può avere altri due co¬ 
lori che sono gli stessi per tutte le 
figure, e si inizializzano con questo 
comando. I due colori rappresenta¬ 
no rispettivamente il multicolor rcg. 
# De reg. # I. 

Per facilitare all'utente la creazione 
di uno sprite multicolor, sotto le fi¬ 
gure compare il disegno punto-pal¬ 
lino (che corrisponde al reg. # 0) 
col suo colore scelto, e il disegno 
pallino-pallino (corrispondente al 
reg. # I) col suo colore; (ricordia¬ 


mo che punto-punto compare come 
colore di fondo, e pallino-punto è il 
colore particolare della figura). Bat¬ 
tendo <Cr> si salta alla domanda 
seguente senza alterare il registro. 

S (Save): per salvare uno o un grup¬ 
po di sprite su nastro. Il programma 
chiede “Save from Sprite (1-31)?" 
cioè da quale sprite si vuol comin¬ 
ciare a salvare e “To Sprite?” cioè 
fin dove. Ad esempio, per salvare gli 
sprite 5, 6, 7 e 9, rispondete 5 alla 
prima domanda e 9 alla seconda 
(naturalmente salverete anche la 8 
per cui è meglio mettere sempre 
adiacenti gli sprite relativi ad un de¬ 
terminato gioco). Per uscire dalla 
routine sempre <Cr>; il blocco del¬ 
le sprite selezionate viene registrato 
come un tutt’uno e sarà ricaricato 


sempre in blocco. 

L (Load): per ricaricare un blocco di 
sprite precedentemente registrato. 
Viene chiesto “Load from Sprite?” 
cioè a partire da quale sprite bisogna 
mettere i dati che entreranno. Sul 
nastro, prima dei dati, è inciso anche 
il numero degli sprite che il file con¬ 
tiene, per cui il programma lettore 
può sapere se l’intero blocco ci starà 
o no in memoria. Ad es. se pretende¬ 
te di caricare un blocco di 10 sprite 
partendo a metterlo dalla 25-esima, 
avrete in risposta un “Not enough 
space” che vi avverte di caricare gli 
sprite in un posto precedente; se le 
mettete a partire dal numero 5, si 
installeranno appunto dalla 5 alla 
14. 

Q (Quii): quando avete finito di gio- 
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VIDEO BASIC 

abbonarsi conviene 


(5 splendidi raccoglitori 
insieme al corso completo) 



Video Basic io trovi in 
edicola a lire 8.000 il 
fascicolo con cassetta e 
manuale. Ma abbonarsi 
conviene; con 165.000 
lire avrai infatti il corso 
completo, a casa tua, e 5 splendidi 
(e pratici) raccoglitori del valore 
di 40.000 lire. 

NON PERDERE L'OCCASIONE! 


10K/48K/PUJS 


Desidero abbonarmi a Video Basic 

□ Per il computer Commodore VIC 20 

□ Per il computer Commodore 64 

□ Per il computer Sinclair Spectrum 



Spedire a: 
JACKSON 
Via Rosellini, 12 
20124 Milano 


Allego lire 165.000 con assegno n°_della Banca_._ o allego fotocopia della ricevuta di 

versamento con vaglia postale intestato a GRUPPO EDITORIALE JACKSON - MILANO, che mi dà diritto di ricevere a casa 
mia il corso completo e 5 raccoglitori. 


Nome 

Via_ 

CAP _ 


Cognome 


Città 


Provincia_ 





















Offerta valida solo fino al 28-2-85 


Il Jocksoniano sceglie 

tra 14 top... 


Jackson & Sons 



Jackson: una grande, esauriente scelta di periodici 
per sapere tutto ciò che è indispensabile. 

In più abbonandoti a queste riviste puoi moltiplicare 
le tue possibilità di vincere il favoloso premio del 
grande concorso Jackson. 

Videogiochi, la guida indiscussa al fantastico 
mondo dei videogames,- 

Home Computer, la rivista del computer in casa,- 

Personal Software, la rivista dedicata al software 
dei personal computer,- 

Bit, la prima rivista europea di 
personal computer, software, accessori, 
la più prestigiosa e più diffusa 
in italia,- 

Informatica Oggi, il punto di riferimento obbligato 
per chi si occupa di sistemi EDP e di Office 
Automation,- 


PC Magazine, la prima rivista italiana dei sistemi 
MS-DOS, Personal Computer IBM e compatibili; 
Personal O, la rivista indipendente per gli utenti di 
PC Olivetti; 

Compuscuola, la rivista di informatica nella 
didattica, per la scuola italiana,- 
Telecomunicazioni Oggi, la rivista di 
telecomunicazioni e telematica,- 
Automazione Oggi, il mensile della nuova 
automazione industriale,- 
Elettronica Oggi, la più autorevole rivista di 
elettronica professionale, strumentazione e 
componenti; 

L’Elettronica, il quindicinale di politica industriale, 
componentistica, informatica e telecomunicazioni; 
Elektor, la più diffusa rivista europea di 
applicazioni e progettazione elettronica. 

Strumenti musicali, il periodico di strumenti musicali 
e computer-music. 

biblioteca 


...e ha.una 

ricchissima tutta per lui. 


(con uno sconto del 20%)’ 


Richiedete il catalogo inviando lire 3000 in francobolli a: 

GRUPPO EDITORIALE JACKSON 

Via Rosellini, 12 - 20124 Milano 
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Ecco come ti abboni, 
risparmi, vinci. 


VINCI 100 COMMODORI 64 


Abbonatevi subito: tra tutti coloro che si abboneranno a una o più riviste Jackson 
tra il 15/9/84 e il 28/2/85 saranno estratti a sorte mensilmente 20 Commodore 64. 



r 

i 

i 


Per sottoscrivere abbonamenti potrete utilizzare il modulo di cc/p inserito in questo fascicolo o inviare un assegno allegato al tagliando sottostante. 


Gruppo Editoriale Jackson S.r.l. - Via Rossellini, 12 - 20124 Milano, allegando assegno o fotocopia della ricevuta di 
versamento con vaglia postale intestato a GRUPPO EDITORIALE JACKSON - MILANO. 

□ Si, desidero sottoscrivere un abbonamento a: 


□ Videogiochi 111 n.l L 30.000 anziché L. 38.500 

□ Home Computer (11 n.l L. 31.500 anziché L. 38.500 

□ Personal Software 111 n.) L 34.000 anziché L 44.000 

□ Bit 111 n.l L. 43.000 anziché L. 55.000 

□ Informatica Oggi 111 n.l L 31.000 anziché L. 38.500 

□ PC Magazine 110 n.l L 40.000 anziché L 50.000 

□ Personal O (10 n.l L 35.000 anziché L. 40.000 


□ Compuscuola 19 n.l L. 15.000 anziché L. 18.000 

□ Telecomunicazioni Oggi 110 n.l L 28.000 anziché L 35.000 

□ Automazione Oggi 111 n.l L 30.500 anziché L 38.500 

□ Elettronica Oggi (11 n.l L. 36.000 anziché L 44.000 

□ L’Elettronica 122 n.l L 44.000 

□ Elektor 112 n.l L. 29.000 anziché L 36.000 

□ Strumenti Musicali 110 n.l L 24.000 anziché L. 30.000 
Attenzione per abbonamento all'estero le tariffe devono essere 
aumentate del 50% 


E c'ò un super-risparmio a chi si abbona a due o più riviste. 

Tulli coloro che sottoscrivono l'abbonamento a due o più riviste godono di uri prezzo ulteriormente agevolato, come appare nella seguente tabelllna. 
Esemplo- Bin-tnlormotico Oggi l 43.0001-31.000=74.000 meno L 2.000=1 72.000 


Abbonamento 

a 8 riviste: L 20.000 in meno sulla somma degli 8 prezzi d’abbonamento 

a 2 riviste L 2.000 in meno sulla sommo dei 2 prezzi d'abbonamento 

a 9 riviste L 25.000 in meno sullo somma dei 9 prezzi d'abbonamento 

a 3 riviste L 4.000 in meno sullo somma dei 3 prezzi d'obbonomenlo 

o 10 riviste L 30.000 in meno sullo sommo dei 10 prezzi d'obbonomenlo 

o 4 riviste L 7.000 in meno sulla somma dei 4 prezzi d'obbonomenlo 

a 11 riviste L 35.000 in meno sulto sommo degli 11 prezzi d'obbonomenlo 

a 5 riviste L 10.000 in meno sullo somma dei 5 prezzi d'abbonamento 

o 12 riviste L 40.000 in meno sullo sommo dei 12 prezzi d’obbonomenlo 

a 6 riviste L 13.000 in meno sullo somma dei 6 prezzi d'abbonamento 

a 13 riviste L 44.500 in meno sullo sommo dei )3 prezzi d'obbonomenlo 

a 7 riviste L 16.000 in meno sulla somma dei 7 prezzi d'abbonamento 

a 14 riviste L. 50.000 in meno sulla somma dei 14 prezzi d’abbonamento 

□ Allego assegno n° della Banca 
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cherellare o non ne potete più di 
quegli stupidi disegnini. Questo co¬ 
mando non ha mai inconvenienti!!! 
(Anche perché in caso di un tardivo 
ripensamento potete recuperare in¬ 
tatta la situazione con un Goto 
10010, entrata speciale per i distrat¬ 
ti. Il programma si presenta come se 
fosse stato normalmente fatto parti¬ 
re con Run, ma conserva in memo¬ 
ria i vecchi sprite che altrimenti ver¬ 
rebbero cancellati). 


10000-11030 Main program 
(programma principale) 

Esegue una subroutine di prepa¬ 
razione di tutto il video e poi va al 
menu principale. La seconda entra¬ 


ta, chiamata “entrata calda”, è 
un’entrata di emergenza (non do¬ 
vrebbe mai servire), ma se avete 
combinato qualche guaio, ad esem¬ 
pio un Run/Stop-Restore, o vi è.sta¬ 
to lo scrolling del video, e non ave¬ 
vate salvato il vostro precedente la¬ 
voro, potete recuperarlo eseguendo 
immediatamente un Goto 10010 
prima di fare qualsiasi altra cosa: si 
reinizializza tutto mantenendo però 
in memoria i dati dei vecchi sprite. 
La routine del menu non necessita di 
spiegazioni, notate solo nella Quit 
(linee 11012-11030) che per sicurez¬ 
za viene chiesto di nuovo se si vuole 
veramente smettere. Da ultimo gli 
sprite sono spenti, ritornano i colori 
standard del video, e tutto è pronto 
per un nuovo gioco. 


20005-20500 Iniziallzzazioni 

20010 - La Cold Init (entrata fredda) 
esegue in più solo un azzeramento di 
tutti i byte dei 32 blocchetti degli 
sprite. 

20024 - Stabilisce i colori di video, 
bordo, e caratteri: se per qualunque 
ragione volete cambiarli fatelo qui. 
20037 - Crea una stringa di cancella¬ 
zione lunga 37 spazi. 

20042 - Crea l’array PO() delle po¬ 
tenze di 2: PO(0)=1, PO(l)=2 ... 
PO(7)=128. 

20185 - Inizializza l’indirizzo del 
controller e della memoria dove si 
trovano i byte degli sprite. 

20190 - Sistema la posizione sul vi¬ 
deo delle 8 figure accese: i valori 
delle coordinate X e Y sono letti dai 


Seguilo listato Sprite Editor. 


600 REM-SUB.DI POSIZIONAMENTO 

605 REM-E CANCELLAZIONE- 

610 REM 


620 POKECV, 23 : REM 1 ENTRY 

625 POKECH,0 :SYSCP:REM 2 ENTRY 

630 PRINTCAS:SYSCP 

640 RETURN 

650 REM 

1000 REM 

1010 REM 

1020 REM-ED1T SPRITE- 

1022 REM 

1025 DO$="EDIT MODE (Q TO QUIT).": GOSUB6 
20 :PRINTDO? 

1030 REM 
1040 RI=0:CO=0 

1045 POKECV,BV+RI:POKECH,BH+CO:SYSCP 

1052 B1=INT(CO/8):B2=7-ri*(CO/8-B1):B=DS+R 
I*3+B1:REM IND BYTE 

1053 PB=PEEK(B):P2=PO(B2) 

1054 S$=".":IFPBANDP2THENS$="[<1CHR$(209) 
> 1 " 

1055 PRINTSS"[<1CRSR L>]";:REM PER ACCELE 
RARE 

1056 CU$ = " (<1CRSR L>]"+S$+"(ClCRSR L>]": 
REM PUNTO O PALLINO 

1058 GOSUB441:A$=SP$:REM GET 

1059 PRINTS$"(<1CRSR L>J"; 

1060 IFA$="Z"THENRI=RI+1:IFRI>20THENRI=0 
1070 IFA$="A"THENRI=RI-1:IFRI<0 THENRI=20 
1OaO IFA$="[<1CRSR R>]"THENCO=CO+l:IFCO>2 
3THENCO=0 

1090 IFA$="[<1CRSR D>]"THENCO=CO-l:IFCO<0 
THENCO=23 

1092 IFA$=" "THENPOKEB,(PBANDNOTP2)OR(NOT 
PBANDP2):REM TOGGLE 


1100 

IFA$="Q" 

THENRETURN 


11 10 

GOTOl045 

:REM ALTRO 

TASTO 

1300 

REM 



1 31 0 

REM 



1 320 

REM 



2000 

REM 



2u 1 0 

REM 



2020 

REM- 

-PUT(WRITE)- 

2030 

REM 



2040 

DO$="PUT 

IN SPRITE 

(1-31) 


31 :GOSUB350 
2045 IFCRTHEN2060 

2050 Q=DS+SP* 64 : FORI=0TOb2:POKEQ+I,PEEK(D 

S+I):NEXT 

2060 RETURN 

2070 REM 

2080 REM 

3000 REM 

3010 REM 

3020 REM-COLOR- 

3030 REM 

3040 DOf? = "FIGURE (A-G) ? ":GOSUB430 
3045 IFCRTHEN3130 
3050 IFSP$ <"A"ORSP$>"G"THEN3040 
306U SA=ASC(SP$)-64 

3070 DOf? = "COLOR N.(0-15) " : LI = 0 :LS = 1 5 :GOS 
UB350 

3075 IFCRTHEN3130 

3080 POKEV+39+SA,SP:REM COLORA 

3090 DO$="<N>ORMAL OR <M>ULTICOLOR ? ":GO 

SUB430:K=PEEK(V+2S) 

3100 IFSP$="N"THENPOKEV+28,KANDNOTPO(SA): 
GOTO3130 

3110 IFSP$="M"THENPOKEV+28,KORPO(SA):GOTO 
31 30 

3115 IFCRGOT03130 
3120 GOTO3090 
3130 RETURN 
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Seguito listato Sprite Editor. 

3140 REM 
4000 REM 

4010 REM-SAVE- 

4020 REM 

4030 DO!? = "SAVE FROM SPRITE (1-31) ":LI=1: 

LS=31:GOSUB350:A=SP 
4035 IFCRTHEN41 20 

4040 DO$ = "TO SPRITE (1-31) ": LI = 1 :LS = 31 :G 

OSUB350:B=SP 

4045 IFCRTHEN4120 

4050 NS=B+1-A:IFNS<1THEN4030 

4060 GOSUB620:POKECV,22 :SYSCP:REM POS 

4065 POKEV+ 21,0:REM SPEGNE SPR 

4070 OPENl,1,1,"SPRITE.DATA" 

4090 PRINT#1, NS :IS=DS+A* 64 :FS=DS+B* 64 + 63 
4100 FORI = ISTOFS: PRINT41 ,PEEK(I) :NEXT:CLO 
SEI 

4105 POKEV+21 ,255 : REM RIACCENDE 
4110 POKECV,22:GOSUB625 
4120 RETURN 
4200 REM 

4998 REM 

4999 REM 

5000 REM-GET (READ)- 

5001 REM 

5010 IFQQ$O"G"THEN5022 

5015 DO$="GET SPRITE (1-31) ":LI=1:LS=31: 
GOSUB350 

5020 IFCRTHEN5070 

5022 POKECH,4 :POKECV,1:SYSCP:Z=0 

5030 Q=DS+SP* 64 :FORI = 0TO62:K=PEEK(Q+I) : PO 

KEDS+I,K 

5040 FORJ = 7TO0STEP-1:A$ = ".":IFK>=PO(J)THE 
NA$="(<1CHRS(209)>j":K=K-PG(J) 

5042 PRINTAS;:NEXTJ 

5050 Z = Z+1:IFZ>2THENZ=0:PRINT:PRINT"[<4CR 


SR R>]"; 

5060 NEXTI 
5070 RETURN 
6000 REM 
6010 REM 
6015 REM 

6030 REM...VIEW- 

6040 REM 

6050 DO$="FIGURE (A-G) ? ":GOSUB430 
6055 IFCRTHEN6125 
6060 IFSP$<"A"ORSP$ >"G"THEN6050 
6070 SA=ASC(SP$)-64 

6080 DO$="VIEW SPRITE (1-31) ": LI = 1 :LS = 31 

:GOSUB350 

6085 IFCRTHEN6125 

6090 POKE2040+SA,32+SP 

6100 REM-AGGIORNAMENTO N.SPR 

61 10 POKECtf,XS (SA) +2: POKECV, YS (SA) :SYSCP 

6120 PRINTMIDS(STR$(SP)+" ",2) 

6125 RETURN 
6130 REM 
6140 REM 
7000 REM 
7010 REM 

7030 REM-MULTICOLOR- 

7040 REM 

7060 DO$="MULTICOLOR REG.#0 (0-15) ":LI=0 
:LS=15:GOSUB350 
7065 IFCRTHEN7090 
7070 POKEV+37,SP 

7080 POKECH,XS(8)+3:POKECV,YS(8):SYSCP:PR 

INT"[<1CHR$(209)>)":POKEbbl 68,SP 

7090 DO$="MULTICOLOR REG.#1 (0-15) ":LI=0 

:LS=15:GOSUB350 

7095 IFCRTHEN7120 

7100 POKEV+38,SP 

7110 POKECH,XS(9)+3:POKECV,YS(9):SYSCP:PR 

INT"[<1CHRS(209)>]":POKE56174,SP 

7120 RETURN 

8000 REM 

8005 REM 

8010 REM 

8030 REM-NEW- 

8040 REM 

8060 DO$="EDIT FIGURE: <E>MPTY OR <F>ILL 
? ":GOSUB430 


Data (linea 21010), mentre il byte 
più significativo di X è posto a 1 per 
tutte perché le figure si trovano nella 
parte destra del video (quindi con X 
maggiore di 255). 

20205 - Pone il bianco come colore 
iniziale delle figure: se non vi va be¬ 
ne cambiatelo qui. 

20208 - Sistema i puntatori delle fi¬ 
gure, segnalando che sono posti al 
32°, 33°... ecc. blocchetto di 64 byte. 
20250- Legge dai Data (linee 21020- 
21030) la posizione orizzontale e poi 
verticale delle scritte sotto le figure e 
la posizione dei segnalatori del mul- 
ticolor. 

20260 - Si posiziona giusto e scrive 
“Edit” sotto la figura 0. 

20270 - Per le altre figure un ciclo 


For-Next scrive la lettera corrispon¬ 
dente (individuata dal carattere 
ASCII pari a 64+1) seguita da = e 
dal numero dello sprite che la figura 
visualizza. 

20310 - Disegna in colonna 16 palli¬ 
ni e li colora. La locazione MC è la 
mappa di memoria dei colori, e “po¬ 
llando” in essa dei valori le corri¬ 
spondenti caselle del video appaio¬ 
no del colore scelto. La casella MC è 
la prima del video, la MC+40 è la 
prima della seconda riga e così via 
per 16 righe. 

20330 - Nelle posizioni adeguate 
vengono accesi i segnalatori del 
multicolor. I colori saranno accesi 
solo dall’utente con l’apposito co¬ 
mando M del menu. 


21000 - Seguono in ordine tutti i 
Data del programma. 

E con questo bel popo’ di cose da 
fare non dovete meravigliarvi se ci 
mette tanto tempo a partire ... 

/ 10-220 Costruzione de! reticolo 

Cancella il video e si posiziona ad 
Home: stampa i segnalini separatori 
dei 3 byte di cui è composta ogni 
linea dello sprite, poi si occupa dei 
numeri delle colonne da far compa¬ 
rire sulla sinistra del video, che ser¬ 
vono a facilitare il centraggio del 
disegno e a ricordare il numero dei 
colori. I numeri sono stampati giu¬ 
stificati a destra (linee 120-140). La 
subroutine 200 (Reticolo) stampa le 
21 file di puntini dopo aver creato 
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Seguilo listato Sprite Editor. 


8065 

IFCRTHEN8115 


8070 

IFSPS<>"E"ANDSP$<>"F"THENGOTO8060 

8080 

N=0:ES$=".":IFSP$="F"THENN=255 

:ES$=" 

(<1CHR? (209)>]" 


81 00 

FORI=0TO62:POKEUS+I,N:NEXT 


81 1 0 

GOSUB200: REM RETICOLO 


8115 

RETURN 


81 20 

REM 


81 30 

REM 


9000 

REM 


9010 

REM-LOAD- 


9020 

REM 


9030 

DO$="LOAD FROM SPRITE (1-31) " 

:LI=1: 

LS= 31 

:GOSUB350:A=SP 


9035 

IFCRTHEN9100 


9040 

GOSUB620:POKECV,21:SYSCP 


9045 

POKEV+21 ,0 : REM SPEGNE SPR 


9050 

OPEN 1,1,0,"SPRITE.DATA" 


9060 

INPUT#1,NS:B=A+NS-1 


9070 

IFB>31THENCLOSEl:GOT09300 


9080 

IS=DS+A* 64 :FS =DS+B*64 + 63 


9090 

LOSEl 

FORI = T STOFS: INPUT#1,C:POKEI,C: 

NEXT:C 

9094 

POKECV,22:GOSUB625 


9095 

POKEV+21,255 


9100 

RETURN 


91 05 

REM 


9300 

POKECV,22 :GOSUS62 5:GOSUB620 


9301 

PRINT"NOT ENOUGH SPACE FOR"NS" 

SPRITE 

9305 

FORI=1T05000:NEXT 


9 j 1 0 

GOTO9095 


9320 

REM 


9340 

REM 


9500 

REM 



9510 REM-DATA- 

9520 REM 
9530 REM 

9540 D0$="DATA OF SPRITE (1-31) ":LI=1:LS 

=31:GOSUB350 
9550 1FCRTHEN9630 
9555 ES$ = ".":GOSUB200 

9560 IS=DS+SP*b4:T(0)=4:T(1)=12:T(2)=20 
9570 PRINT"[<1HOME>)": FORI =ISTOIS+62STEP3 
9580 FORJ=0TO2:PRINTTAB(T(J))PEEK(I+J);:N 
EXTJ 

9590 PRINT:NEXTI 

9600 DO$ = "PRESS RETURN TO CONTINUE ":GOSU 
B430 

9610 IFNOTCRTHEN9600 
9620 SP=0:GOSUB5010 
9630 RETURN 

10000 REM 

10001 REM 

10002 REM 

10004 REM-MA1N PROGRAM- 

10005 REM 
100U6 REM 

10007 GOSUB20005: REM ENTRATA FREDDA 

10008 GOTOl0050 
10005 REM 

10010 GOSUB20023: REM ENTRATA CALDA 

10015 REM 

10016 REM 

10020 REM-MAIN MENU'- 

10030 REM 

10050 DO$="E,G,P,D,V,C,M,N,L,S,Q ? " 

10060 GOSUB430:0Q$=SP$: REM GET ALF 
10070 IFQQ$="G"THENGOSUB5010 : REM GET 
10U80 IFQQ$="E"THENGOSUB1025:REM EDIT 
10085 1FvJQ$ =,, P"THENGOSUB 2040 : REM PUT 
10090 IFQQ§="S"THENGOSUB4030: REM SAVE 
10100 IFQQS="L"THENGOSUB9030:REM LOAD 
10105 IFuU$ = "N , ’THENGOSUBoObO:REM NEW 
10110 IFGQ$ = "V ,, THENGOSUB6050:REM VIEW 
10114 IFQQ$="C"THENGOSUB3040: REM COLOR 

10116 IFUQ$="M"THENGOSUB/060:REM MULTIC 

10117 IFQQ$ = "D"THENGOSUB9540: REM DATA 

10118 IFQQ$="0"THEN11000:REM QUIT 
10120 GOTOl0050 

10130 REM 


una stringa composta da 24 elemen¬ 
ti; notate che ESS (il puntino del 
reticolo) era stata inizializzata in 
precedenza (linea 114) e che entran¬ 
do nella subroutine alla linea libò 
possibile passare ad ESS un qualsia¬ 
si altro carattere, e ottenere così reti¬ 
coli diversi (la possibilità sarà sfrut¬ 
tala dal comando New). 

350-370 Input numerico 

Fa entrare da tastiera una linea che 
sia un numero e chiuda con <Cr>. 
Le devono essere passati vari para¬ 
metri: la stringa DOS con la doman¬ 
da da porre, e i limiti inferiore c 
superiore del numero che deve en¬ 
trare (LI, LS). Se l’input è fuori dai 
limiti viene scartato e la domanda 


viene riproposta: la 350 cancella le 
scritte precedenti stampandovi so¬ 
pra una stringa di spazi, la 355 pone 
la domanda e annulla la stringa di 
input: questo perché, qualora si bat¬ 
tesse un solo <Cr>, la stringa di 
input non verrebbe toccata, e conti¬ 
nuerebbe pertanto a contenere il va¬ 
lore non voluto deU’input preceden¬ 
te. La 357 effettua l’input: per non 
provocare errori viene accettata una 
stringa di cui, più tardi, sarà calcola¬ 
to il valore numerico (linea 360). 
Notate l’espressione CR=SPS=“”: 
è una assegnazione “logica”: alla 
variabile CR è assegnato il valore -1 
se l’espressione SS$=“’’ è vera, altri¬ 
menti CR vale 0. Così se l’input è 
consistito in un solo <Cr>, la varia¬ 


bile SS$ è rimasta una stringa nulla e 
CR vale -1. 

Considerate infatti questo partico¬ 
lare: quando si esegue la funzione 
Val di una stringa non numerica si 
ottiene come risultato 0, esattamen¬ 
te come se fosse stato realmente bat¬ 
tuto uno zero. Anche il Val di una 
stringa nulla è 0, e poiché volevamo 
distinguere i due casi abbiamo do¬ 
vuto effettuare questo ulteriore test 
sulla stringa entrata, prima di con¬ 
vertirla in numero. 

430-461 Gel alfabetico con cursore 

Subroutine con un trucchetto in¬ 
teressante: avere una Get con la pre¬ 
senza rassicurante del cursore. 
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Seguito listato Sprite Editor. 

10140 REM 
10150 REM 

1 1000 REM-QUXT- 

11010 REM 

11012 DO$="ARE YOU SURE (Y/N) ? ":GOSUB43 
0 

11014 IFSP$< >"Y"THENGOTO1 00 SO : REM REENT. 

1 1 020 POKEV+21,0 :POKE53280,14:POKE532bl,6 

I 1 0 30 PRINT"[<1AZZ>] [<1CLR>]": END 
11040 REM 

II OSO REM 
11060 REM 
20000 REM 

20002 REM-COLD INIT- 

20003 REM 

20004 REM 

20005 DS=2048 

20009 REM INIT DATA SPRITE 

2001 0 FORI=DSTODS+b4*32-1 :POKEI,0 :NEXT 

20014 REM 

20015 REM 

20020 REM-WARM INIT- 

20021 REM 

20022 REM 

20023 RESTORE 

20024 POKES3280,11:POKE532bl,12:PRINT"[<1 
BLU>]": REM SCREEN 

20035 GOSUB540: REM POS CURS 

20037 CA$ = "":F0RI=1T037:CA$=CA$+" ":NEXT 

20038 BV=1 :BH=4 

20042 A=1 :FORI = OTOV: PO(I)=A:A=A* 2 :NEXT 

20043 REM 

20044 REM 

201 50 GOSUtJ 1 1 0 : REM ACCENS RETIC 
20160 REM 


20170 REM ACCENS.SPR 0-7 
20180 REM 

20185 V=53248:DS=204b 

201 90 FORI=VTOV+l5 :READA:POKEI,A:NEXT:POK 
EV+16,255:REM POS.X,Y 

20205 FORI=V+39TOV+46:POKEI,1 :NEXT:REM CO 
L.WHITE 

20206 POKEV+28,0 : REM NON MULTICOL. 

20208 FORI=0TO7:POKE2040 + 1,32+1 :NEXT:REM 
POINTER SPRITE 

20210 POKEV+21,255:REM ACCENS. 

20230 REM 

20240 REM-SCRITTE SOTTO SPRITE 
20242 REM 

20250 FORI=0TO9:READXS(I):NEXT 
20255 FORI=0TO9:READYS(I):NEXT 

202 60 POKECV»YS(0) :POKECH,XS(0):SYSCP:PRI 
NT"EDIT" 

20270 FORI=ITO/:POKECV,YS(I):POKECH,XS(I) 

•&YSCP 

20280 PRINTCHR?(64+1)"="MID$(STR$(I),2):N 
EXT 

20300 REM 

20305 REM lb PALLINI COLORATI 

20310 PRINT"[ < 1HOME>)"; : FORI=0TOl5 :PRINT" 

[ <1CHK$(209)>]":NEXT 

20320 MC=55296:FORI = 0TOl5:POKEMC+40*I,I :N 
EXT 

20325 REM 

20326 REM SEGNAL MULTICOL 

20330 POKECH,XS(b):POKECV,YS(8):SYSCP:PRI 
NT". [<1CHR$ (209)>]=" 

20340 POKECH,XS(9):POKECV,YS(9):SYSCP:PRI 
NT"[< 2CHR$(209) >J =" 

20500 RETURN 
20510 REM 
20520 REM 
20530 REM 

21000 DATAI 62,0, 160,0,24,76,240,255:REM P 
OS•CURS• 

21010 DATA7,58,48,58,7,97,48,97,7,1 37,48, 
137,7,178,48,178:REM POS.SPR. 

21 020 DATA30,35,30,35,30,35,30,35,29,35:R 
EM POS.H SCRITTE 

21030 DATA 4,4,9,9,14,14,19,19,21,21 : REM P 
OS.V SCRITTE 



Creiamo una stringa CU$, formata 
da 4 caratteri: un cursore, un carat¬ 
tere di spazio-indietro, uno spazio 
bianco e un altro spazio-indietro; la 
useremo in seguito. Come al solito 
cancelliamo la linea sottostante e 
poniamo la nuova domanda DOS 
(preparata dalla routine chiaman¬ 
te), poi annulliamo la stringa di in¬ 
put SPS (431-435). Cosa succede 
poi? Viene eseguita una Get (443), e 
se non era stato premuto un tasto 
incrementa il contatore T: questo 
per otto volte, dopo di che vengono 
stampati due caratteri della stringa 
CUS, i primi due e precisamente il 
simbolo del cursore e un backspace. 
In poche parole stampa il cursore. 
Poi il ciclo riprende con altre otto 


Gel e se non viene premuto nessun 
tasto in questo tempo il valore di L 
al secondo passaggio sarà 3 e provo¬ 
cherà la stampa del terzo carattere 
di CUS, cioè lo spazio, esattamente 
sopra al cursore stampato prima, 
poi del backspace. E questo cancella 
il cursore. Ai passaggi successivi sa¬ 
rà sempre stampato alternativamen¬ 
te un cursore e uno spazio, dando 
cosi l'impressione che ci sia un vero 
cursore lampeggiante. Il gioco fini¬ 
sce quando viene premuto un tasto, 
per cui si salta alla 461 che pone 
CR=0 se il carattere entrato non era 
un <Cr>. SPS è comunque restitui¬ 
to alla routine chiamante. Potete di¬ 
vertirvi a cambiare la forma del cur¬ 
sore modificando la CUS, o a varia¬ 


re la velocità del lampeggio agendo 
sulla IF T < 8 (linea 444). 


5411-571) Posizione cursore 

La subroutine legge gli otto Data 
della linea 21000, che costituiscono 
un piccolo programma in linguag¬ 
gio macchina: 

LDX # 0 
LDY # 0 
CLC 

JMP PLOT 

La Plot è una subroutine del Ker- 
nal, cioè del sistema operativo della 
Commodore, ed è usabile anche da¬ 
gli utenti: la sua funzione è di posi- 
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Sprite Editor 

zionare il cursore in orizzontale e 
verticale a seconda dei parametri 
con cui sono inizializzati rispettiva¬ 
mente i registri Y e X. Se ad esem¬ 
pio, Y vale 5 e X 3, il cursore appari¬ 
rà sul video nella sesta casella della 
quarta riga (la prima riga e colonna 
sono la numero 0). Per ulteriori spie¬ 
gazioni su questa subroutine vedete 
il Programmerà Refercncc Guide 
del C 64 a pag. 290 (versione ingle¬ 
se). A noi interessa sapere che la 
routine in linguaggio macchina vie¬ 
ne messa all’indirizzo indicato da 
CP, che CH e CV contengono gli 
indirizzi in cui “pokare” il numero 
di riga e di colonna in cui si vuole far 
apparire il cursore. 

620-640 Posizionamento ilei cursore 
e cancellazione 

La 620 inizializza il cursore alla 
24-esima riga e la 625 alla prima 
colonna; poi chiama la subroutine 
di posizionamento. 

In quel punto stampa la stringa di 
cancellazione per eliminare le scritte 
precedenti, c con il seguente Sys si 
riposiziona a capo, pronto per scri¬ 
vere una nuova linea (il secondo Sys, 
infatti, utilizza per CH e CV gli stes¬ 
si parametri dati precedentemente). 


Routine 

2040-2060 Pur cioè salva lo sprite 
appena disegnato in uno degli altri 3I 
posti. 

In memoria possono starci fino a 32 
disegni di sprite diversi: in questo 
programma lo sprite 0 è usato solo 
per l’edit, e bisogna poi spostarlo da 
un’altra parte per poterlo salvare su 
nastro, o per tenerlo visualizzato 
mentre se ne disegnano altri. 

La 2040 prepara i parametri per la 
subroutine di input numerico: la 
stringa da stampare e i limiti dell’in¬ 
put. Se si batte solo <Cr> si esce 
dalla routine senza compiere nessun 
lavoro, altrimenti in Q viene carica¬ 
to l'indirizzo di dove spostare i 63 


byte dello sprite di edit (indirizzo 
base DS + il numero dello sprite 
moltiplicato per i 64 byte di lunghez¬ 
za di ogni sprite) e i byte sono rico¬ 
piati (linea 2050). Nello sprite di edit 
resta comunque il suo contenuto, e 
se non serve piu lo si elimina col 
comando New. 


5010-5070 Gel cioè carica nello 
sprite di edit uno degli altri 3 / 
sprite 

Operazione inversa della prece¬ 
dente: chiede quale sprite si vuole 
editare e se la risposta è solo <Cr> 
si esce dalla routine. Altrimenti vie¬ 
ne calcolato l’indirizzo dello sprite 
scelto in Q ed esso viene ricopiato 
byte per byte nello sprite di edit, la n. 
0 (linea 5030). Bisogna però anche 
disegnarlo espanso sul reticolo (li¬ 
nea 5040): A$, che rappresenta ri¬ 
spettivamente o il puntino o il palli¬ 
no, è selezionato e stampato otto 
volte, in corrispondenza degli otto 
bit del byte dello sprite letto, e la 
scelta avviene confrontando il byte 
con le potenze di 2 via via decrescen¬ 
ti e sottraendo detta potenza dal 
byte se essa è presente. Il ciclo che 
coinvolge Z serve a stampare solo 3 
byte su ogni riga, e poi ad andare a 
capo e riposizionarsi sulla linea se¬ 
guente del reticolo pronti per i pros¬ 
simi 3 byte (linea 5050). 

8060-8115 New inizializza lo sprite 
di edit 

Chiede se si vuole lo sprite di edit 
tutto vuoto o tutto pieno e in caso di 
<Cr> esce dalla routine. L’input 
deve essere necessariamente o una F 
o una E altrimenti rifa la domanda 
(linea 8070). A seconda della rispo¬ 
sta prepara N = 0 e ES$ uguale al 
puntino, oppure N = 255 e ES$ 
eguale al pallino: N è il numero da 
scrivere nei byte dello sprite c ESS> è 
il carattere che apparirà sul reticolo. 
A questo punto si possono “poka¬ 
re” e rifare il reticolo (linee 8100 e 


8110). 

5040-3150 Color ovvero il mondo è 
migliore se coloralo 

Dapprima domanda su quale figura 
si vuole agire: se la risposta non è 
compresa tra la A e la G rifa la 
domanda (linea 3050). Poi chiede il 
colore scelto (ricordate che per co¬ 
modità dell’utente sono visualizzati 
dei pallini colorati sulla sinistra del¬ 
lo schermo e i colori corrispondono 
al numero delle colonne del reticolo 
scritte proprio di fianco. Quanta 
comprensione per noi programma- 
lori pigri). In ogni caso battendo 
solo <Cr> si esce. 

La 3060 ha un compito speciale: 
trasformare la lettera entrata nel nu¬ 
mero dello sprite corrispondente: la 
lettera (da A a G) viene trasformata 
nel suo codice ASCI I (da 65 a 71 ) da 
cui viene sottratto 64 di modo che 
alla figura A corrispondano, nel 
controller, i registri dello sprite 1 e 
così via fino alla figura G a cui corri¬ 
spondono i registri dello sprite 8. E 
così possibile “pokare” direttamen¬ 
te il colore scelto nel registro (linea 
3080). Nella scelta tra normale e 
multicolor le cose sono un po’ più 
complesse: infatti c’è un solo regi¬ 
stro di multicolor che serve per tutti 
8 gli sprite (un bit per ogni sprite). Il 
registro viene letto, poi in caso di 
Normal si azzera il bit corrispon¬ 
dente alla figura scelta (linea 3100)e 
in caso di Multicolor il bit viene 
messo a I (linea 3110) usando le 
istruzioni And e Or logiche. 

7060-7120 Multicolor sceglie 
gli altri due colori 

Non c’è molto da dire: pone le 
domande (lince 7060 e 7090), scrive 
il colore nel registro corrispondente 
(lince 7070 e 7100), poi nella posizio¬ 
ne adeguata disegna il pallino e lo 
colora (linee 7080 e 7110). Questi 
ultimi servono per il disegnatore 
smemorato, ma sono comunque 
molto comodi. 
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Sprite Editor 

6050-6125 View per vedere 
qualunque sprite 

Viene domandato in quale delle 7 
figure dovrà apparire lo sprite scel¬ 
ta: poi la 6090 “poka” nel puntatore 
di detta figura l'indirizzo del nuovo 
blocchetto di dati. Questo indirizzo 
è espresso come numero del bloc¬ 
chetto: se i nostri sprite sono posti in 
memoria all’indirizzo 2048 e ogni 
sprite occupa 64 byte (63+1 vuoto), 
allora quell'indirizzo rappresenta il 
32° blocchetto di 64 byte; il secondo 
sprite sarà il 33° blocchetto e così 
via. Poi aggiorna la scritta sotto¬ 
stante la figura: ci si posiziona alle 
coordinate dovute (linea 6110)e vie¬ 
ne stampato il numero del nuovo 
sprite. La linea 6120 fa qualcosa di 
più: stampa il numero senza quel 
fastidioso spazio che precede la 
stampa di tutti i numeri positivi: il 
numero, col suo spazio, è trasforma¬ 
to in stringa (a cui si aggiunge un 
altro spazio in fondo per cancellare 
eventuali numeri già stampati sot¬ 
to), e la stringa è stampata a partire 
dal secondo carattere, cioè senza lo 
spazio iniziale. 

Simpatico, no? 

9540-9630 Data per sapere i byte 
di uno sprite 

Dopo aver chiesto quale sprite, 
ripulisce il reticolo di edit dove 
stamperà i numeri (linea 9555). Poi 
calcola l’indirizzo iniziale IS e le ta¬ 
bulazioni orizzontali di dove do¬ 
vranno apparire i tre byte su ogni 
linea (linea 9560). Il seguente For- 
Next serve a stampare i dati, tre su 
ogni linea come dicevamo sopra'(ci¬ 
clo che coinvolge J) e ben tabulati 
sul reticolo. Come esercizio potete 
imparare a calcolare a mano i byte e 
poi verificare la loro esattezza ... 
Per terminare viene chiesto di pre¬ 
mere <Cr>. A questo punto biso¬ 
gna ricostruire sul reticolo il disegno 
originario: ma noi abbiamo già una 
routine che fa questo lavoro, la Get, 
e la chiamiamo entrando dopo le 
domande, avendo l’accortezza di 
porre il numero dello sprite uguale a 


O.In questo modo lo sprite di edit 
viene ricopiato in se stesso e natural¬ 
mente anche disegnato sul reticolo. 

1025-1 HO Edit 

Il lavoro è un po’ complesso, ve¬ 
diamolo in dettaglio: 

2045 - Pone il cursore alla riga e 
colonna dove si è arrivati. La prima 
volta sarà nell’angolo in alto a sini¬ 
stra, poi di volta in volta in una 
nuova posizione. 

1052 - Esegue calcoli sulla attuale 
posizione del cursore: B1 è il nume¬ 
ro del byte sulla riga, B2 è il numero 
del bit all’interno di B1, B è l’indiriz¬ 
zo del byte corrispondente nella me¬ 
moria dati, PB il contenuto di B c P2 
il valore della potenza di 2 corri¬ 
spondente a B2. 

1054-1055 - Si predispone a far blin- 
kare (lampeggiare) il puntino o il 
pallino sottostante al cursore: per 
decidere quale dei due, verifica se il 
bit corrispondente del byte su cui si 
trova è a 0 oppure a 1. Lo stampa e 
riporta indietro il cursore. 
1056-1059 - Prepara la nuova strin¬ 
ga cursore CU$, che sarà usata dalla 
subroutine “Get con cursore”. Qui 
aspetta un carattere battuto da ta¬ 
stiera, poi torna. 

1060-1110 - Analizza il carattere en¬ 
trato: se è Z incrementa il contatore 
di riga RI (se oltrepassa l’ultima riga 
viene riportato in cima); se è A de- 
crementa lo stesso contatore (por¬ 
tandolo in basso se era in cima); se 
era <curs. des> incrementa il conta¬ 
tore di colonna CO (riportandolo 
sul bordo sinistro se era tutto a de¬ 
stra); e se era <curs. giù> decre- 
menta detto contatore. Se invece era 
<spazio> deve invertire il bit su cui 
si trova: il lavoro viene effettuato 
“pokando" nel byte B queirincredi¬ 
bile espressione che vedete nel lista¬ 
to (linea 1092) e che cercheremo di 
spiegarvi con calma: se volete inver¬ 
tire un bit di un numero esadecimale 
A, basta avere un altro numero B 
(detto “maschera”) con tutti i bit a 0 
tranne un I proprio nel posto del bit 
che volete invertire. Applicando cie¬ 
camente la formula “(A And Not B) 


Or (Not A And B) e facendo qualche 
scongiuro ricavate un numero C 
uguale all'originale A solo che ha il 
bit invertito. Provare per credere, 
ma è meglio che crediate e basta!!! Il 
nuovo byte scritto in memoria pro¬ 
voca automaticamente l’accensione 
o lo spegnimento del puntino sulla 
figura di Edit. Poi si ricomincia da 
capo, posizionandosi sulla nuova ri¬ 
ga o colonna, o visualizzando il nuo¬ 
vo punto o il nuovo pallino. 

Se il tasto premuto era Q si esce 
dalla routine, se era un altro tasto 
qualsiasi viene ignorato. 

4030-4120 Save su cassetta 
gli sprite disegnati 

Anzitutto domanda da quale a 
quale sprite si vuol salvare (A e B), e 
NS è il numero complessivo di essi 
(linea 4050); qualora fosse uguale a 
0 o un numero negativo vuol dire 
che c’è stato un errore nell’input e si 
richiedono i valori. 

Quindi si posiziona più in alto del 
solito in modo da evitare che le suc¬ 
cessive scritte provochino uno scrol- 
ling del video; la linea 4065 ha la 
funzione di spegnere gli sprite du¬ 
rante il.salvataggio e lo stesso fare¬ 
mo durante il caricamento: perché 
mai, direte voi? Semplice, perché 
l’integrato video, che gestisce gli 
sprite e altre funzioni che rendono il 
Commodore 64 un computer così 
interessante, per fare tutti i suoi la¬ 
vori ha bisogno di tempo, che ruba 
ai programmi che stanno funzio¬ 
nando in quel momento. 
Normalmente però l’utente non se 
ne accorge, sia perché il tempo “ru¬ 
bato” è piccolo, sia perché in genere 
i programmi non sono “temporizza- 
ti” cioè non devono fare una certa 
cosa senza essere assolutamente di¬ 
stratti. Ma durante operazioni deli¬ 
cate come il salvataggio e il carica¬ 
mento da nastro il microprocessore 
non può essere disturbato e infatti è 
noto che durante queste fasi il video 
viene spento. Anche gli sprite attivi 
portano via tempo per cui in fase di 
salvataggio i dati verrebbero spediti 
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al registratore in modo irregolare e 
impiegandoci più tempo del dovuto. 
I guai seri sorgono invece in fase di 
caricamento: se il microprocessore, 
invece di tener d’occhio costante- 
mente la linea di ingresso dati, do¬ 
vesse occuparsi anche degli sprite, 
rischierebbe di perdere il carattere in 
arrivo con conseguente errore. 

Ma torniamo al nostro programma: 
la linea 4070 apre un file in scrittura 
su cassetta chiamato “Sprite.Data”; 
vi stampa per prima cosa il valore di 
NS, cioè il numero degli sprite che 
saranno salvati poi in ordine tutti i 
byte dall’indirizzo iniziale ISal fina¬ 
le FS (linea 4100). Poi il file è chiuso 
e si possono riaccendere gli sprite. 
La 4110 cancella le vecchie scritte e il 
lavoro è terminato. 

> 

9030-9310 Load per ricaricare 
gli sprite già salvati 

Inizialmente chiede da dove deve 


iniziare a mettere il blocco di sprite 
letti per poter controllare che ci stia¬ 
no in memoria; poi spegne gli sprite 
accesi, apre in lettura il file “Sprite- 
.Data” e legge il numero di sprite 
incisi. Se dai calcoli (linea 9060) ri¬ 
sulta che non ci stanno tutti in me¬ 
moria nella posizione voluta dall’u¬ 
tente lo segnala e termina il coman¬ 
do. Se invece ci stanno allora li cari¬ 
ca da IS a FS calcolati come nella 
linea 9080. Chiude il file, cancella le 
vecchie scritte, riaccende gli sprite 
ed esce. 

Una volta disegnati gli sprite, come 
fare ad usarli? Il metodo più sempli¬ 
ce è il copiarsi i byte degli sprite e 
metterli in Data del proprio pro¬ 
gramma. Al momento opportuno il 
programma leggerà i Data, metten¬ 
doli in determinate caselle di memo¬ 
ria e i disegni saranno così disponi¬ 
bili. 

Se gli sprite invece sono molti o vo¬ 
lete fare un lavoro più pulito, salvate 


su cassetta il blocco degli sprite pro¬ 
prio di seguito al vostro program¬ 
ma. Se inserite nel programma le 
seguenti linee: 

10 IS=2048 

20 OPEN1,1,0 “SPRITE.DATA” 
30 INPUT # 1,A: 

FS=TS+64-*A— 1 

40 FOR I=IS TO FS: INPUT 
#1,A: POKEI,A: NEXT 
50 CLOSE1 

Quando il programma parte si cari¬ 
cherà da solo il blocco degli sprite. 
Tenete bene conto che IS è l’indiriz¬ 
zo di memoria in cui saranno carica¬ 
ti i dati, state perciò attenti che non 
si sovrappongano al vostro pro¬ 
gramma. 

Sarebbe buona pratica infatti, met¬ 
terli prima del programma, così si è 
sicuri che anche modificando o al¬ 
lungando il programma essi non in¬ 
terferiscono. In questo caso fate i 
Poke iniziali. ■ 



• GESTIONE ARCHIVIO 
FOTOGRAFICO 
CON L’APPLE 


• SISTEMI RIDOTTI 
TOTOCALCIO 
CON L’APPLE 


TROVERETE 


• MEMO TEST 

CON LO SPECTRUM 

• QUADRATI 
PER SPECTRUM 

• METODI DI NEWTON 
CON IL C 64 


• CATALOGO NASTRI 
PER SHARP 


• ALIENS PER ZX81 


• L’ULTIMO PERDE 
CON IL C 64 
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Bacheca 

Notizie e notiziale, an¬ 
nunci e iniziative, (pag. 2) 

L’informatica nelle scuole: 
eurotendenze 

L’impegno dei governi eu¬ 
ropei per l’introduzione 
delle nuove tecnologie 
nell’educazione, (pag. 12 

È intelligente, nta non si 
applica 

Di fronte a un elaboratore 
che inventa la matematica 
c’è da chiedersi non solo 
cos’è la matematica, ma 
addirittura che cos’è l’in¬ 
telligenza. (pag. 16) 
Computer e letteratura 
Computer in fabula, (pag. 

17) 

Corsologo - terza puntata 
Comandi e funzioni, (pag. 

18) 

Breve storia delle macchi¬ 
ne da calcolo 

Una vicenda che ancora 
affascina chi si avvicina al 
computer, (pag. 24) 

La politica francese per 
l’introduzione del compu¬ 
ter nella scuola 
Rapporto di una visita in 
Francia, (pag. 28) 


Un ponte 

fra industria e scuola 


Con una interessante Tavola Rotonda 
dal titolo: “Nuove tecnologie nella scuola: 
uno scenario per il futuro nel rapporto 
scuola lavoro” si è concluso il Seminario 
tenutosi lo scorso mese presso il Centro 
Commerciale Americano, in occasione 
della mostra Didactics USA 1984. Obietti¬ 


vo dell’iniziativa tentare di gettare un pon¬ 
te fra industria e scuola, di mettere a con¬ 
fronto i modi di formazione dei quadri del 
mondo del lavoro e il mondo della scuola 
e di verificare se l’informatica può essere 
considerata utile terreno di incontro fra 
queste due culture. 

distribuzione dei compiti for¬ 
mativi. Inoltre dobbiamo te¬ 
ner conto del prolungamento 
della giovinezza, che ormai 
sfiora i trent’anni, ed un pro¬ 
lungamento dell’età matura. 
Sarà necessario, quindi fare 
ricorso ad una multimediali¬ 
tà, con gergo inglese ad una 
panoplie, attrezzandoci con 
tutti gli strumenti mediali atti 
a colpire il bersaglio. I nuovi 
media avranno capacità di 
adattamento alle discipline; è 
singolare quando si analizza 
il computer accorgersi che è 
in grado di fare tutto proprio 
peché dentro non ha niente, 
salvo la capacità di fare tutto. 
Il computer è un mezzo tra¬ 
sparente che veicola a ciò di 
cui è il messaggio o il tramite, 
la scuola dovrà affrontare 
questa sfida. 

Parini scriveva con la pen¬ 
na d’oca, Hemingway con la 
macchina da scrivere, e Um¬ 
berto Eco ci confessa di usa¬ 
re il word processor. Secon¬ 
do Maria Gallo, insegnante 
dell'ltis Armellini di Roma, 
“La scuola non deve dare 
quantità di informazioni ma 
qualità, i docenti dovrebbero 
poter insegnare tecniche e 
tecnologie, e tentare di getta¬ 
re le premesse per la ricon¬ 
versione professionale, evi¬ 
tando così molte frustrazioni 


A Mauro Laeng, Ordinario 
di Pedagogia all’Università di 
Roma, padre riconosciuto 
dell'introduzione dell’infor¬ 
matica nella scuola italiana, 
è toccato il compito di intro¬ 
durre i lavori. “Siamo di fron¬ 
te ad un vertiginoso aumento 
della quantità di informazio¬ 
ne, è questo un compito diffi¬ 


cile da fronteggiare. Se con¬ 
sideriamo la produzione di li¬ 
bri e quotidiani degli Stati 
Uniti ci troviamo di fronte ad 
alcuni miliardi di bit all'anno 
con un accorciamento dei 
tempi di raddoppio sempre 
maggiore, con un processo 
quasi esponenziale. La sfida 
è imponente, implica una re- 


A Bologna il 30-31 gennaio e 1 febbraio Palazzo dei 
Congressi Convegno Internazionale: «Informatica e 
Nuove Tecnologie per l’Educazione e la Formazione». 
All’ordine del giorno il progetto ANTEM che promuove 
la collaborazione internazionale per lo sviluppo e la 
diffusione delle nuove tecnologie applicate alla didat¬ 
tica. Promotori: Cnr Itd, Csata, Enea, Dioikema, Uni¬ 
versità di Milano, Istituto di Cibernetica 

Il convegno organizzato dal CIDI su informatica e pro¬ 
cessi formativi nella scuola, previsto per il 17-18-19 
gennaio a Sesto San Giovanni, Milano, è stato rinviato 
a causa delle condizioni metereologiche approssima¬ 
tivamente alla metà di marzo. 

Il 16-17-18 gennaio organizzato dal Comune di Lugo di 
Romagna presso l’aula magna del Liceo Scientifico 
Statale «G. Ricci Curbastro» convegno: Scuola più: 
più istruzione, più opportunità, in un sistema formati¬ 
vo integrato. Il convegno è promosso con la collabora¬ 
zione del Dipartimento di Scienze dell'Educazione del¬ 
l’Università di Bologna, il patrocinio della regione Emi¬ 
lia Romagna, della provincia di Ravenna e del Provve¬ 
ditorato. 




























































o rgano elettronico 


Trasformate 
il vostro Sharp 
in un potente 
strumento musicale. 

di Martino Sangiorgio 

C on questo programma è 
possibile utilizzare il com¬ 
puter Sharp MZ-721 (o 
MZ-731) come un organo elettroni¬ 
co. Infatti, guidati dal video su cui 
compare il disegno della tastiera, coi 
tasti bianchi e anche con quelli neri 
(per i diesis), basta pigiare sui tasti 
dalla “Q” al “?” per ottenere le note 
normali, mentre pigiando sui tasti 
dall’“l” al si otterranno i diesis. 
Lo Sharp MZ-700, si sa, non ha un 
generatore di suoni così sofisticato 
come altri elaboratori, anche di fa¬ 
scia più bassa (esempio CBM 64 e 
TI99/4A): ha una soia voce, e quin¬ 
di non si possono generare accordi, 
copre una gamma di tre sole ottave 
e, in più, il volume non è modificabi¬ 
le via software. 

Il suono che è in grado di generare 
è però di notevole qualità, e questo 
programma lo dimostra. La gamma 
di suoni coperta non è tutta quella 
possibile con lo Sharp, ma va dal Fa 
minore (tasto “Q”) al Sol maggiore 
(tasto “?”), per un totale di 27 note 
musicali diverse. 

Buon lavoro, quindi, e ... musica, 
Maestro! 

Il programma 

Il programma è in linguaggio 
macchina, e per la sua digitazione vi 
sono tre possibilità. 

A) Utilizzare, se ne è in possesso, 
l’Editor-Assembler SP-2102 (è quel¬ 
lo dello Sharp MZ80K), o analogo 


Listato 1 - Elenco istruzioni deI programma 
in linguaggio Assembler Z80. 
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che giri su MZ-700. In questo caso è 
possibile utilizzare il listato 1, cioè 
l’elenco delle istruzioni del pro¬ 
gramma in linguaggio Assembler 
Z80. 

Dopo aver completato la digitazio¬ 
ne, si dovrà convertire il programma 
in linguaggio macchina (per esem¬ 
pio con il “Relocatable loader” SP- 
2301, o analogo) a partire dalla loca¬ 
zione di memoria $A000. Anche 
l’indirizzo di esecuzione dovrà esse¬ 
re $A000. 

L’utilizzo di questi programmi di si¬ 
stema è spiegato nei vari manuali, 
per cui non ci sembra opportuno 
procedere in questa sede ad una loro 
sintesi. 

B) Utilizzare il Monitor 1Z-013A di 
sistema, incorporato nei primi 4 
Kbyte di memoria, oppure il Moni¬ 
tor presente nella sezione IOCS del¬ 
l’interprete BASIC. 

In entrambi i casi si dovrà usare il 
listato 2, e si dovrà procedere come 
segue. 

1) Se si vuole usare il Monitor di 
sistema, premere il pulsante Reset 
sul retro dell’elaboratore (natural¬ 
mente a macchina accesa). 

Se invece si vuole usare il Monitor 
dell’interprete BASIC (il BASIC de¬ 
ve, in questo caso, essere già stato 
caricato in macchina), digitare il co¬ 
mando Bye e premere Cr. Questo 
comando passa il controllo al Moni¬ 
tor del BASIC. In entrambi i casi, la 
procedura seguente è in comune. 

2) Digitare, nella posizione del cur¬ 
sore, vicino all’asterisco: MA000 e 
premere Cr. Questo permette di ini¬ 
ziare la modifica della memoria. Il 
video presenterà ora la seguente ri¬ 
ga: 

A000 00 • 

Si dovrà digitare, nella posizione at¬ 
tuale del cursore, il primo numero 
esadecimale prelevato dal listato 2 
(così com’è, senza modificarlo né 
convertirlo), dopodiché si dovrà 


Seguito listato 1. 



03 0071 CD1500 

C8LL 

nso 

04 0074 3E07 

uD 

8,07H 

05 0078 2119D9 

LO 

HL,D.919H 

00 0073 0625 

LD 

9,370 

07 0e7B 77 

D!SP1 : lD 

CKLJ.8 

08 007C 23 

».NC 

HL 

09 007D 05 

DEC 

8 

1 0 007E C27B00 

JP‘ 

N2,D!SP1 

M 0e8! 2141D3 

LO 

HL,D941H 

12 0084 0625 

LD 

9,320 

13 0086 77 

DISP2 i uD 

(HLJ,8 

»4 0087 23 

, T .NC 

HL 

1 5 0088 05 

DEC 

8 

10 0083 029800 

JP 

NE.DJSP2 

i7 008C 2109D3 

LD 

HL,D369H 

’8 008F 0625 

uO 

3,370 

1.9 0031 77 

0ISP3; uD 

f.HLD,8 

20 0032 23 

INC 

HL 

21 0033 05 

□EC 

8 

22 0034 023100 

JP 

N2.0ISP3 

23 0037 2191D3 

uD 

HL,D391H 

24 0098 0625 

LD 

3,370 

25 0B3C. ?7 

0JSP4 i l.0 

(HL),8 

26 003D 23 

r.NC 

HL 

27 009E 05 

0E0 

B 

28 003F 023000 

JP 

N2,OISP4 

29 0082 21B3D9 

LD 

HL,D9B9H 

30 0085 0625 

LD 

3,37D 

31 00A? 77 

DISP5 : lD 

CHL3.8 

32 00A8 23 

»N0 

HL 

33 0083 05 

DEC 

B 

34 0088 C28700 

JP 

N2.DISP5 

35 008D 21E1D9 

>-D 

ML,D9F. IH 

36 00B0 0625 

L.0 

9,370 

37 00B2 77 

0!SP6: lD 

(HL3,8 

38 00B3 23 

»NC 

HL 

39 0084 05 

DEC 

8 

*0 00B5 C2B200 

JP 

NJt.DISPO 

*1 0088 CD4700 

ST8RT0: 08LL 

hstp 

02 0BBB CDIB00 

STARTI : CALL 

GETKT 

*3 00BE B7 

OR 

9 

A4 00BF 28F7 

IR 

?,START0 

*5 0001 FF.21 

CP 

21H 

46 0003 C80000 

JP 

J.ONTR 

47 0006 47 

cD 

B.6 

40 00C7 21E300 

uD 

ML,SCTBL 

43 0008 7E 

rnpR* uD 

9.CHL) 

50 0008 FEF0 

CP 

P0H 

** 280 BSSF.tlBLF.R SP- 

•2101 P8GF 03 

ti 

81 00CC 28E3 

JR 

2,5T8RT0 

02 00CF 23 

T .NC 

HL 

03 0000 B8 

CP 

9 

04 00D1 2804 

JR 

2 , +6 

05 0003 23 

iNC 

HL 

06 0004 23 

T.NC 

HL 

07 0005 18F3 

JR 

cnpR 

08 0007 5E 

uD 

E.CHLJ 

03 0eD8 23 

»NC 

HL 

10 0009 56 

uD 

0, f HL) 

11 0008 ED5361! 1 

uD 

tllAIH3.DE 


/ 
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UNA PUBBLICAZIONE 
GRUPPO EDITORIALE JACKSON 



MENSILE DI TELEMATICA, 
TRASMISSIONE DATI 
E TELEFONIA. 

V_ 



Seguito listato 1. 





»2 02DE CD4400 


T6LL 

MSTA 


•3 00F.1 IBDB 


IR 

STARTI 


«4 00F.3 


SKP 

3 


'8 00F.3 31 

SCTBL- 

OEFB 

51H 

? T 6ST0 "0** 

*3 00E4 642C 


OEFU 

2CA4M 

;P6 MINORE 

20 00E6 32 


PEFB 

32H 

* T ASTO '2* 

mu 002 o 


OEFU 

2A00M 

:P0 DIESIS (UMORE 

22 00E3 5? 


OEFB 

57H 

; T OSTO 'U- 

23 00EG 6827 


OEFU 

2768M 

JSOL MINORE 

2*1 00EC. 3*3 


OEFB 

33H 

: tosto r 

25 00ED 8225 


OEFU 

2582H 

-SOL DIESIS MINORE 

26 00F.F 45 


OEFB 

45H 

« T 6ST0 ‘F r 

22 80F0 31*23 


OEFU 

233 IH 

;l6 MINORE 

28 30F2 31 


OEFB 

34H 

■ T 6ST0 ••4- 

23 00E3 8221 


DEFU 

2187H 

:u6 OIF.SIS MINORE. 

J0 00F5 52 


OEFB 

52H 

■ T 6Sr9 P' 

31 00Fe FOIE 


OEFW 

1 KF.3B 

••si ni MORE 

3*2 00F8 51 


OEFB 

54M 

:'6ST0 ' rr 

33 00F9 FF.1D 


OEFU 

10EF.H 

• DO CENTRALE 

31 08FB 30 


OEFB 

36H 

:W, TO •'0- 

35 00FC 341C 


OEFU 

1C34H 

: 00 DIESIS CE-NTRBLF. 

30 00FF. 53 


OEFB 

53H 

^tosto • r* 

3? 00FF 3218 


OEFU 

1652H 

PE CF.NTR6LF. 

36 0101 37 


OEFB 

37H 

: T 6ST0 7- 

33 0102 If 13 


OEFU 

ni eh 

:PE DIESIS CENTR6LE 

•'0 0104 55 


DEF8 

55H 

•* T 6S TO J" 

41 0105 UFI7 


OEFU 

1 78FM 

:MI CENTRALE 

4 2 0107 43 


OEFB 

43H 

• TASTO 

A3 0108 3210 


OEFU 

1052H 

; e 6 CF.NTR6LF. 

^4 0138 33 


OEFB 

33H 

• T 6ST0 -V 

*5 010B FUI 


OEFU 

Ì4F1H 

•E6 DIESIS CENTR6LE 

*6 010D 4F 


OEFB 

4FH 

:»68T0 ' 0' 

*7 010E 0413 


DEFU 

I304H 

-SOL r.F.NTRBLF. 

*9 0110 30 


OEFB 

J3H 

: T 6ST0 *0- 

A3 Bill BC12 


OEFU 

12BCM 

•SOL DIESIS CENTROTE 

50 0113 50 


OEFB 

50H 

: T 6S T0 • «**' 

** *90 ASSEMBLER SP 

2102 P6GF. 04 

** 


01 0114 3911 


OEFU 

113011 

=u6 CENTR6LF. 

02 0116 20 


OEFB 

2DM 

:^6ST0 * •** 

03 0117 C310 


OEFU 

10C3H 

:l 6 DIESIS CENTROl-E 

04 0113 40 


OEFB 

40H 

;t6RT0 0" 

05 0116 F10F 


DEFU 

0FF1H 

SI CENTRALE 

06 0l1C 3B 


OEFB 

5BH 

? T 6ST0 r ' r 

07 Gl 10 F70E 


DEFU 

0EF7H 

-00 MOGLIORE 

0B 01 IP 5C 


DEFB 

5CN 

? T ASTO * ' r 

03 0120 200F. 


OEFU 

0F20H 

:00 DIESIS MOGLI ORE 

' 0 0122 re. 


OEFB 

FCH 

• T 6ST0 * r 

>1 ai'23 JllBU 


OEFU 

0D3DM 

:PE MAGGIORE 

> '2 0125 4C 


OEFB 

4CH 

;T6SrO •V’ 

•3 0128 340f. 


OEFU 

0C34H 

:PE DIESIS MAGGIORE 

M 0128 2E 


OEFB 

2EH 

: T ASTO * 

«5 0123 DF0B 


OEFU 

0BDFH 

;M! MAGGIORE 

'0 01'2B ’2F 


OEFB 

2FH 

: TOSTO • " 

>7 012C *2008 


OEFU 

0B2DM 

• F 6 MOGLIORE 

»0 012F. 36 


OEFB 

36H 

? T ASTO * 

* 9 01 2F 7C06 


DEFU 

067CH 

j r A DIESIS MAGGIORE 

20 0131 *3K 


OEFB 

3FH 

:'OSTO ‘ T' 

21 013*2 E603 


DEFU 

03F.6H 

SOL MAGGIORE 

22 0134 F0 


DEFB 

F0M 

• c INE T6BELL6 NOTE 

23 0135 

» 




24 0135 

JulNEF. 

TER ST0MP6 PI6H0F0RTF. 

23 0135 





26 0135 

MSG* : 

FNT 


«PRIMA LINEA 

27 0135 20202020 


DEF11 

/ 

********** l ************' 

28 0133 20202020 





23 01 *3D *20262626 





30 0141 26262626 





Jl 0145 26262626 





3*2 0143 26*262626 





33 0140 26262626 





34 0151 262626 





35 0154 00 


OEFB 

0DH 


36 0155 

nSG2i 

fNT 


l SECONDA LINEA 

3? 0155 20202020 


DEFtl 

/ 

* 0RG6N0 ELETTRONICO 1' 

3B 0153 20202020 





33 015D 2026204F 





40 0161 5247414F. 





41 0165 4F20434C 





42 0169 45545452 
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Organo 
elettronico 

premere Cr. La modifica verrà ac¬ 
cettata e il video presenterà ora il 
registro successivo (A001). 

Si potrà modificare anche questo re¬ 
gistro utilizzando il secondo nume¬ 
ro esadecimale del listato 2, batten¬ 
do poi Cr. E così via, fino a modifi¬ 
care direttamente tutti gli indirizzi 
da $A000 a SA232, prendendo i dati 
dal listato 2. 

L’operazione di modifica della me¬ 
moria si può interrompere coi tasti 
Shift e Break premuti contempora¬ 
neamente. 

3) Terminata la modifica della me¬ 
moria si può salvare il programma 
scritto nel seguente modo: mettere 
dapprima un nastro nel registratore 
e quindi digitare, sempre vicino al¬ 
l’asterisco: 

$AOOOA232AOOO 

Questo comando permette di salva¬ 
re lo spezzone di memoria dall’indi¬ 
rizzo SA000 all’indirizzo SA232, e di 
imporre l’indirizzo di esecuzione in 
SA000. 

4) Se si vuole procedere all’esecuzio¬ 
ne immediata del programma, digi¬ 
tare: 

JAOOO se si è nel Monitor di sistema, 
oppure: 

GA000 se si è nel Monitor del BA¬ 
SIC. 

5) Quando si caricherà successiva¬ 
mente questo programma da casset¬ 
ta, non dovrà essere presente l’inter¬ 
prete BASIC (utilizzare, eventual¬ 
mente, il tasto Reset). Appena cari¬ 
cato, esso verrà immediatamente 
posto in esecuzione. 

C) Utilizzare un programma BA¬ 
SIC. 

È possibile scrivere un programma 
che effettui tante Poke dall’indirizzo 
$A()()() all’indirizzo $A232, pren¬ 
dendo i dati dal listato 2 (ricordarsi 
che, su tale listato, i numeri sono 
esadecimali). 

Si possono anche utilizzare delle 
istruzioni Data. 

Prima di effettuare le Poke, ricor¬ 
darsi che deve essere stato dato il 
comando (o istruzione): 

Limit 9FFF, per limitare l’area di 
memoria riservata al BASIC. ■ 



Seguilo Usuilo I. 

«3 8160 

«>» 81?! IFOBIfT 

*5 0174 00 OEFB 0OM 

rt 6 0175 *131*3» FNT I T ERSA ». INEA 

*7 0175 22223220 OEFH '234 02 30- 

*8 0173 22332222 
43 0170 J4202020 
50 018! 30202037 

t% 192 ASSEMBLER ST-2102 PAGE 05 ** 


•1 

0185 

20202033 




02 

0183 

20203020 




03 

0180 

20202020 




04 

0191 

20502020 




05 

0135 

4C202020 




06 

0133 

3A 




É? 

01 SA 

80 


OEFB 

0OM 

•a 

0136 


NSG4: 

FNT 


03 

0130 

28r.1C8P5 


DEFH 

' CI 

■5C1C8D5C1C8D3F0C1CBOSF. 1C805FDC1C80S' 


10 

013F 

r.icecsr.i 





81 flit FIB-if.fFè 




•0 

31 AB 

05FDC1C8 




* 4 

01AF 

D3r.ir.8D5 





01B3 

C1C803F0 




'0 

01B7 

C1C805C1 




t 7 

01BB 

C0P5FDC1 




'8 

0I8F 

C8D5 





01C1 

00 


OEFB 

0OH 

20 

01C2 


MSG5 : 

FHT 


21 

01C2 

2020FD20 


OEFO 

/ i 


PD P D F 0‘ 




22 

01C6 

20FD2020 




23 

01CA 

FO20FD20 




24 

01 CE 

FD2020FD 




29 

010*2 

20FD20FD 




26 

eicé 

2020FD20 




27 

31 DA 

20FD20FD 




28 

31 DE 

20202020 




23 

01E2 

20FD28FO 




J0 

01E6 

20FD 




J! 

01E8 

00 


OEFB 

OUM 

32 

01E3 


NSG6- 

FNT 


33 

01E3 

20312057 


DEFn 

7 Q 

34 

01 ED 

202045*0 




35 

01F! 

20522054 




36 

01F5 

20532020 




37 

01F3 

55204320 




38 

01FO 

4F282050 




33 

0201 

20204020 




*2 

0205 

5B20FC20 




A\ 

0203 

202E202F 




42 

0200 

203F 




49 

020F 

00 


OEFB 

0DH 

*4 

0210 


NSG7: 

FNT 


*5 

0213 

204f.41 20 


oEPn 

' LI 

*6 

0214 

20542020 




A? 

02! 8 

42-^5252 




AB 

021C 

4353504F 




A3 

0220 

4F.444520 




60 

0224 

4! 4C.2044 





QUARTA LINEA 


•.QUINTA LINEA 
pq F D C P F D F D F D F D F D F D 


F D F 0 


n e r r y 


SESTA 
U I O 


.INF. A 


t 4 


•SETTIMA LINEA 


** S90 ASSEMBLER SP 2102 PAGF 00 tt 


01 0228 4F204345 
02 022C 4E543241 
03 0239 4C4G 
04 0232 00 
05 0233 


OEFB 0OH 
FND 


tt *80 ASSEMBLER SP-2102 TAGF. 87 tt 


cnrR 

00CA 

0JSP1 

007B 

0! SP2 

0086 

OJ SP3 

0031 

0ISP4 

003C 

DJ SP3 

00A7 

OJSPf» 

0082 

GFTKT 

001B 

lETNL 

0006 

NNTR 

0000 

msg 

0013 

nSG! 

0135 

nSG2 

0155 

f1SG3 

0175 

nCG4 

0138 

*1SG5 

01C2 

NSG6 

01E3 

M5G7 

0210 

flSTA 

0044 

nsTP 

0047 

^RNT 

0012 

SC.TBL 

80F.3 

START 

0000 

START0 

0088 

STARTI 

9088 
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Seguirò listato 

2. 







■ A0F8~^4 

FF. 

ID 

36 

34 

IC 

59 

92 

/TEE,64.te 

'Al 00=1 A 

37 

1E 

19 

55 

BF 

1 7 

49 

✓. 7..DBF,l 

'Al 08=52 

16 

39 

FI 

l 4 

4F 

D4 

13 

✓R.9F|.004 

•Al 10=30 

3 

BC 

12 

50 

98 

1 1 

2D 

C3 

✓0BC.Ph.-C 

•Al 18=10 

40 

FI 

0F 

5B 

F7 

0E 

5C 

/.@F1 . [F7. 

• A 120=20 

0E 

FC 

3D 

0D 

4C 

94 

0C 

✓ . L~. 

A128=2E 

DF 

0B 

2F 

2D 

0B 

3A 

7C 

✓.OF.✓-. • 7 

c 

'Al 30---0A 

3F 

FA 

09 

F0 

20 

20 

20 

✓,^EA.F0 

•Al 38=20 

20 

20 

20 

20 

20 

2A 

2A 

✓ ** 

•Al 40--2A 

2A 

2A 

2A 

2A 

2A 

2A 

2A 

********* 

•A148---2A 

2A 

7A 

2A 

2A 

2A 

2A 

2A 

/%%%%%%%% 

'A 1 50=2A 

2 A 

2A 

2A 

0D 

20 

20 

20 

'%%%%. 

Al '58=20 

20 

20 

20 

20 

20 

2A 

20 

✓ % 

■AI60--4F 

52 

47 

41 

4F. 

4F 

20 

45 

✓ORGANO E 

•A168=4C 

45 

54 

54 

52 

4F 

4F. 

49 

ELETTRONI 

" A 170-43 

4F 

20 

2A 

0D 

20 

20 

32 

✓CO *. 2 

•A 128=20 

20 

33 

20 

20 

34 

20 

20 

✓ 3 4 

•Al 80=20 

36 

20 

20 

37 

20 

20 

20 

✓ 6 7 

•Al 88=3.9 

20 

20 

30 

20 

20 

2D 

20 

✓ 9 0 - 

Al 90=20 

20 

5C 

20 

20 

4 C. 

20 

20 

✓ N L 

Al 98=20 

3A 

0D 

20 

CI 

C8 

D5 

CI 

✓ C1C8D 

5C1 

Mei 8 

□5 

CI 

C8 

D5 

FD 

CI 

C8 

✓C8D5CIC8D 

* ’A1A8=D5 

CI 

C8 

D5 

FD 

CI 

C8 

D5 

✓D5C1C8D5F 

DC1C8D5 

•A1B0--C1 

C8 

D5 

CI 

C8 

D5 

FD 

CI 

✓C1C8D5CIC 

8D5FDC1 

£ 

CD 

CO 

il 

n 

co 

D5 

CI 

C8 

D5 

FD 

CI 

C8 

✓C8D5C1C8D 

5FDC1C8 

•A1C0--D5 

0D 

20 

20 

FD 

20 

20 

FD 

✓05. FO 

FD 

•A1C8=20 

20 

FD 

20 

FD 

20 

FD 

20 

✓ FO FD F 

D 

•A1D0=20 

FD 

20 

FD 

20 

FD 

20 

20 

✓ FD FD FD 

•A1D8=FD 

20 

20 

FD 

20 

FD 

20 

FD 

✓FD FO FD 

FD 

•A1E0---20 

20 

FD 

20 

FD 

20 

FD 

0D 

✓ FD FD F 

D. 

•AlE8-20 

51 

20 

57 

20 

20 

45 

20 

✓ Q U F 

• A1 F0--20 

52 

20 

54 

20 

59 

20 

20 

✓ R T r 

•A1F8=55 

20 

49 

20 

4F 

20 

20 

50 

✓U I 0 P 

•A200=20 

20 

40 

20 

5B 

20 

FC. 

20 

✓ @ r. i 

A208--20 

2F 

20 

2F 

20 

3F 

0D 

20 

✓ . ✓ ?. 

•A210-4C. 

41 

20 

2D 

54 

2D 

20 

43 

✓LA -T- C 

A218=4F 

52 

52 

49 

53 

50 

4F 

4F 

✓ORRISPON 

•A220-44 

45 

20 

41 

4C 

20 

44 

4F 

✓DE AL DO 

-A228=20 

43 

<»5 

4F 

54 

52 

41 

4C 

✓ CENTRAL 

■ A230-45 

0D 

00 

00 

00 

00 

00 

00 

✓E. . . 


Listato 2 - Elenco istruzioni elei programma 
in linguaggio macchina. 

: A000=3E 

16 

C.D 

12 

00 

1 1 

35 

Al 

.✓> . CD . .. 5o. 

:A008=CD 

U 

15 

00 

CD 

06 

00 

1 1 

55 

✓ CD..CD. ., 

JA0!0=A1 

CD 

15 

00 

CD 

06 

00 

1 1 

✓uCD..CD.. 

:A018=35 

Al 

CD 

15 

00 

CD 

06 

00 

✓5aCD..CD. 

: A020=CD 
75 

06 

00 

CD 

06 

00 

1 1 

25 

✓CD..CD... 

* A028=A1 

CD 

CD 

15 

00 

CD 

06 

00 

CD 

✓aCD..CD.. 

• A030=06 

00 

1 1 

9B 

Al 

CD 

15 

00 

✓ ...xaCD.. 

r A038=C.D 

D. 

06 

00 

CD 

15 

00 

CD 

06 

✓CD..CD..C 

:A040=00 

CD 

15 

00 

CD 

06 

00 

1 1 

✓.CD..CD.. 

• A048=C.2 

Al 

CD 

15 

00 

CD 

06 

00 

✓C2oCD..CD 

: A050=CD 

D. 

15 

00 

CD 

06 

00 

CD 

15 

✓CD..CD..C 

•• A058=00 

CD 

06 

00 

CD 

06 

00 

1 1 

✓.CD..CD.. 

:A060=E8 

Al 

CD 

15 

00 

CD 

06 

00 

✓E 80 CD . .CD 

:A068=CD 

06 

00 

CD 

06 

00 

1 1 

0F 

✓CD..CD. .• 

•• A070=A2 

CD 

15 

00 

3E 

07 

21 

19 

✓zCD.•>.S. 

•A078=D9 

2' 

06 
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IL BASIC NEGLI AFFARI 


X.T. Bui 

LA GESTIONE AZIENDALE CON IL BASIC 


Il libro insegna a leggere, scrivere e provare programmi 
BASIC per tipiche applicazioni da ufficio. 

Nei primi capitoli viene presentato il linguaggio BASIC 
e vengono descritti gli elementi fondamentali della 
programmazione. Ogni gruppo di istruzioni è poi 
illustrato con esempi di programmi relativi ad 
applicazioni per l'ufficio e con diversi esercizi; di alcuni 
di questi sono fornite le soluzioni. 

Completa il libro una breve introduzione ad altri tre 
linguaggi di programmazione: FORTRAN, COBOL e 
PASCAL, che vengono confrontati con il BASIC. 
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Codice 402H L. 18.000 


Il libro presenta i principali problemi di gestione 
aziendale, spiegandone i fondamenti teorici e la 
realizzazione in linguaggio BASIC. 

Con i numerosi esempi di applicazioni, ispirati a 
situazioni reali, l'autore vuole dimostrare che ogni 
responsabile, che debba prendere decisioni nell’ambito 
di un’azienda, può accedere direttamente al calcolatore 
e ottenere elementi di analisi, pianificazione e controllo. 
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Francis Samish 

GUIDA ALLA SCELTA DEL PERSONAL 
COMPUTER 

Il segreto per un acquisto intelligente sta nel conoscere 
bene che cosa si vuole ottenere e, in base a questo, 
quale hardware e quale software sono necessari. 
Questo libro affronta il problema in modo esauriente, 
fornendo un'ampia panoramica delle macchine che 
possono essere utili in casa e in ufficio, con il relativo 
software. 

Per chi già possiede un personal, fornisce utili 
indicazioni su come ottimizzarne l’utilizzo o completare 
il sistema. 
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Un classico 

per il vostro Sinclair. 

E richiesta l’espansione 
da 16 Kbyte 

di Angelo Motta 

Q uesto programma è stato 
creato per poter utilizzare 
lo ZX81 come scacchiera 
per il gioco della dama fra due per¬ 
sone. Anche se a prima vista può 
sembrare poco interessante e forse 


inutile (qualcuno potrebbe dire: per¬ 
ché perdere tanto tempo ad inserire 
tutte quelle linee quando, a tale sco¬ 
po, basta una comune scacchiera!), 
il programma mostra la sua effettiva 
utilità nelle varie opzioni offerte - 
più avanti illustrate - che possono 
essere maggiormente sfruttate da 
chi possiede una stampante. 

Oltre a fare da arbitro al gioco, lo 
ZX81 vi consente: 

• di avere, sulla stampante, una co¬ 
pia della scacchiera in qualsiasi mo¬ 
mento della partita, inserendo al po¬ 
sto della mossa di uno dei giocatori 
la lettera C. Questo può essere utile 


quando si desidera analizzare - in un 
secondo tempo - una determinata 
situazione di gioco; 

• di ottenere, sempre sulla printer, 
inserendo M al posto della mossa, 
l’elenco di tutte le mosse effettuate, 
sia durante la gara, sia alla fine della 
stessa. Questo permette di poter 
conservare lo sviluppo di una parti¬ 
ta ed analizzarla successivamente; 

• di registrare la partita ad un deter¬ 
minato punto e completarla in un 
secondo tempo, inserendo la lettera 
R al posto della mossa; 

• di selezionare la scacchiera, ossia 
inserire dame e pedine a piacere e 


Listato 1. // programma Dama. 


0 


VOLETE LE 


10 PRINT TAB 12; 

20 PRINT ,,,,TAB 
ISTRUZIONI? (S/N)" 

30 GOTO 30+(5 AND INKEY*="S">+ 
( 60 RND INKEY*="N") 

35 CLS 

36 REM 

37 REM ISTRUZIONI 

38 REM 

4.0 PRINT "ISTRUZIONI PER USO P 
ROGRRMMR:” 

4-5 PRINT ,,”A-LE CASELLE DELLA 
DAMA SONO NU- MERATE DA 01 A 3 
2 PARTENDO DAL QUADRATO IN BASS 
O A DESTRA CO- ME DAL SEGUENTE 
PROSPETTO:" 

50 PRINT ,," 32 31 30 29"; 

TA6 4-; "28 27 26 25";TAB 2; "24. 

23 22 21";TAB 4;"20 19 18 

17”;TAB 2;"16 15 14 13";TAB 

4;"12 11 10 09”;TAB 2;”08 07 

06 05“;TAB 4;"04 03 02 01" 

55 PRINT ,,"B-LA MOSSA VA INSE 
RITA INDICANDO LA CASELLA DI PA 
RTENZA SPAZIO CASELLA DI ARAIV 


O" 



61 IF INKEY 
TO 59 
63 CLS 
65 PRINT " 

AL 9 DEVONO 
M 01,02,..09" 
70 PRINT ,, 
ERE PIU*DI UNA 
A CON UN"UNICA 
FFETTUARE TAN- 
SONO LE PEDINE 
ERENDO AL PO- 
LA LETTERA P, 


_"C" THEN COPY 
OCHR* 118 THEN GO 


LE CASELLE DALL"1 
ESSERE INDICATE CO 

C-SE SI DEVE PREND 
PEDINA AVVERSARI 
MOSSA, BISOGNA E 
TE MOSSE QUANTE 
DA PRENDERE, INS 
STO DELLO SPAZIO 
SALVO PER L"ULTI 


MA PEDINA” 

72 PRINT ,,"D 
ERIRE LA CA- 
NA CHE NON VI 
A,UNA S AL PO- 
, POI IL NUME- 
DELLA PEDINA 
ppIRRE•" 

74 PRINT ,,"E-ALTRE OPZIONI Or 
FERTE DAL PRO- - 


PER SOFFIARE INS 
SELLA DELLA PEDI 
E"STATA MANGIAT 
STO DELLO SPAZIO 
RO DELLA CASELLA 
AVVERSARIA DA SO 



80 IF INKEY 
TO 78 

82 CLS 

84 PRINT " 

SA INSERIRE 
E PER : " 

86 PRINT ,," 
GHIERA SULLA 

87 PRINT ,," 
O DELLE MOSSE 
O A QUEL DATO 

PRINTER" 

88 PRINT ,," 
AMMA CON LA 
SO” 

90 PRINT ,," 
LEZIONARE LA 
PEDINE E DAME 


»"C" THEN COPY 
OCHR* 118 THEN GO 


AL POSTO DELLA MOS 
LE SEGUENTI LETTER 

C«STAMPA LA SCAC 
PRINTER" 

M-STAMPA L"ELENC 
EFFETTUATE SIN 
MOMENTO, SULLA 

R-SALVR IL PROGR 
PARTITA IN COR 

S-PERMETTE DI SE 
SCACCHIERA CON 
A PIACI 



IF INKEY*«=C" THEN COPY 

97 IF INKEY* OCHR* 118 THEN GO 
TO 96 

98 CLS 

99 FAST 

100 REM 

101 REM VARIABILI INIZIALI 

102 REM 

105 LET PB=12 
110 LET PN = 12 
120 DIM A(32) 
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Dama per ZX81. 


Seguito listato Dama. 


130 

14-0 

160 

160 

170 

180 

18S 

190 

200 

210 

220 

290 

295 

300 

310 

320 

330 

340 

350 

360 

370 

400 

690 

697 

698 

699 

700 
720 
730 
735 
740 
750 
800 
810 
820 
830 

2000 

2001 

2002 

2003 

2004 

2005 


POR 1=1 TO 12 
LET fi(I)=52 
LET fi(1+8)«128 
LET fi(1+20)=180 
NEXT I 
DIM 8(32) 

FOR N =0 TO 7 

FOR 1=1 TO 4 

LET B (I+N*4) =17-N*2 

NEXT I 

NEXT N 

DIM C (32) 

FOR N =0 TO 24 3TEP 8 

FOR 1=1 TO 4 

LET C(I+N)=34-4*1 

LET C (I+4-+N) =32-4*1 

NEXT I 

NEXT N 

LET M=® 

LET L $ = ”" 

DIM M$(32) 

GOSUB 7000 

m u 

REM 
REM 
LET 
LET 
LET 
LET 
GOTO 


CICLO PRINCIPfiLE 


M=M + 1 
0=52 
2=23 
X =5 
2000 

STOP 

LET 0=180 
LET Z=151 
LET X = 11 
GOTO 2000 
REM 

REM INSERIMENTO E 
REM CONTROLLO MOSSA 
REM 

PRINT AT 18,9;M 
PRINT AT X, 0; ''MUOVE" 


PRINT RT 20,0;M$ 

INPUT A* 

IF CODE fi$=40 TMEN GOTO 500 
IF CODE fi $ =50 THEN GOTO 300 
IF CODE fi $ =55 THEN GOTO 380 
IF CODE fi$«56 THEN GOTO 510 


2007 
2010 
2020 

0 

203© 

0 

2040 

0 

2045 
C 

2050 IF LEN fi$ < >5 THEN GOTO 4000 
2060 LET E=OfiL fi$(l TO 2) 

2070 LET D=OfiL fi$(4 TO 5) 

2080 IF D <1 OR D >32 OR E<1 OR E> 
32 THEN GOTO 4000 

2085 IF CODE fi$(3)=56 THEN GOTO 
2500 

2100 IF fi(D) < >128 OR fi(E) < >U AND 
fi(E) <>Z THEN GOTO 4000 
2110 IF E >D fiND fi(E) *52 OR D >E fi 
(E)=180 THEN GOTO 4000 
IF fiBS (E-D)>5 THEN GOTO 35 


ND fi 
2115 
00 

2120 

GOTO 

2130 

2140 

2150 

THEN 


IF fiBS (C (E) -C<D) ) <>2 THEN 
4000 

PRINT AT X,0;fi$ 

LET fi (D) =fi (E) 

IF fi (E) «U fiND 
LET fi(D)=Z 


D < *4 OR D > =29 


2160 LET fi(E)=128 
2170 PRINT RT B (D) ,C(D);CHR$ (fi ( 
D));ftT B (E) ,C(E) ;CHR$ (fi(E) ) 

2190 LET L$=L$+fif 

2195 IF PN *0 OR PB=0 THEN GOTO 4 
500 

2200 IF CODE fi$(3)=53 OR CODE fi$ 

(3)=56 THEN GOTO 2000 

2300 GOTO 700+(100 fiND U=52) 

2600 REM 

2501 REM SOFFIO DELLO PEDINO 

2502 REM 

2510 IF fl(E)(>U fiND fi(D)=U OR fi( 
D) =128 THEN GOTO 4000 
2520 IF fiBS (E—D) < >5 fiND fiBS (E- 


quindi iniziare la gara da quella po¬ 
sizione di gioco. Opzione che si rive¬ 
la utile, quando si vuol risolvere i 
problemi di dama, pubblicati su 
giornali e riviste. 

Per quanto riguarda il gioco, è 
molto importante tenere ben pre¬ 
sente come va inserita la mossa: “ca¬ 
sella di partenza spazio casella di 
arrivo”, ricordandosi che per le pri¬ 
me nove caselle, tale numero dovrà 
essere preceduto da uno zero (esem¬ 
pio 01, 02, ... 09). 

Se nel corso della gara dovrete pren¬ 
dere più di una pedina avversaria 
con un’unica mossa, dovrete effet¬ 


tuare tante mosse quante sono le 
pedine da prendere, inserendo al po¬ 
sto dello spazio la lettera P, ad ecce¬ 
zione dell’ultima mossa. Esempio: 
se siete in casella 16e dovete prende¬ 
re le pedine avversarie nelle caselle 
20 - 27 - 26. dovrete inserire tre mos¬ 
se in successione come le seguenti: 1 ) 
I6P23 - 2) 23P30 - 3) 30spazio21. 

Si è ricorso a questa procedura, in 
quanto avere la presa di più pedine 
con un’unica mossa, avrebbe com¬ 
portato un notevole allungamento 
del programma a seguito dei neces¬ 
sari controlli e, tenuto conto che du¬ 
rante una partita non sono molte le 


mosse di questo tipo, si è optato per 
la soluzione sopra illustrata evitan¬ 
do, perciò, di appesantire ulterior¬ 
mente il programma. 

Le istruzioni per l’uso sono conte¬ 
nute nel programma stesso. È stata 
prevista la possibilità di copiarle sul¬ 
la stampante in modo di averle sem¬ 
pre a disposizione nel corso della 
gara. Questa soluzione risulta co¬ 
moda per non dimenticarsi della nu¬ 
merazione delle caselle e delle varie 
opzioni possibili. Per quanto riguar¬ 
da l’illustrazione del programma si 
vedano le Rem inserite, che divido¬ 
no i vari blocchi di cui è composto 
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FIN EDICOLA 



GIOCOMPUTER 
GIOCHI ELETTRONICI 



Seguito listato Dama. 


ABS (E—D) < >3 THEN GOTO 


DI 04- AND 

♦eoo 

2530 LET A(D)«128 

PRINT RT B(D),C(D);CHR* 


2540 

ì 

2550 

2560 

3000 

3001 

3002 
3010 
3020 
3030 
3040 
URTR 


R (D 


GOSUB 4100 
GOTO 2190 
REM 

REM 3TRMPR MOSSE 
REM 

GOSUB 3030 
GOTO 2010 
ir L* <>•••• TME£J 


^ GOTO 3060 
"NON E* STRTR EFFETT 
MOSSA - DOGETE PRIM 


•ELENCO DELLE MOSSE 


LPRINT 
RLCUNR 
R GIOCARE" 

3050 RETURN 
3060 LPRINT 
EFFETTUATE : 

3070 LPRINT 
LPRINT 
LPRINT 

FOR 1=1 TO LEN L* STEP 
LPRINT L*(I TO 1+4), 

IF CODE L* (1+2)00 THEN 


3080 

3085 

3090 

3100 

3110 

INT 

3120 

3125 

3130 

3500 

3501 

3502 
3510 
3520 


•BIANCO* 


•NERO" 


LPR 


DI PEDINA 


NEXT I 
LPRINT 
RETURN 
REM 

REM PRESA 
REM 

LET F = INT C (E+D) /2) 

IF C (D) -INT (C (D) .-'4) *4=0 TU 
EN LET F=F+1 

3530 IF U=180 THEN GOTO 3600 
3540 IF A(E)=52 AND A(F)=151 THE 
N GOTO 4000 

3550 IF A(F) < >151 AND A(F)<>180 
THEN GOTO 4000 
3560 GOTO 3700 
3600 IF A(F) < >52 AND 
EN GOTO 4000 
3610 IF A(E)=160 AND 
N GOTO 4000 
3700 LET A(F)=128 

PRINT AT B(F),C(F); CHR $ 


3710 

) 

3740 

3780 

3800 

3301 

3802 


A <F) < >23 TH 
A(F)=23 THE 


A (F 


GOSUB 4100 
GOTO 2130 
REM 

REM REGISTRAZ.PARTITA 
REM 

3810 PRINT AT 20,0;"UUOI REGISTA 
ARE LA PARTITA? (S/N) " 

3820 IF INKEY*="S" THEN 


0 

3830 

20 

3840 

3850 

3860 


GOTO 38© 


IF INKEV*0"N“ THEN GOTO 38 


PRINT AT 20,0; M* 

GOTO 2000 

PRINT AT 20,0;"FAI PARTIRE 
IL REGISTRATORE E POI PREMI NE 
OLINE" 

3870 INPUT Z» 

3880 FOR 1=1 TO 50 
3890 NEXT I 
3900 SAUE "DAMA" 

3910 LET M»M-1 
3920 GOSUB 7O00 

3930 GOTO 700+(100 AND U=180) 

4000 REM 

4001 REM MOSSA ERRATA 
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Dama per ZX81 


Seguito listato Dama. 


4002 REM 

4-010 PRINT RT X,0;"MOSSA ERRATO” 

4.020 POR 1 = 1 TO 70 

4030 NEXT I 

4-04-0 PRINT OT X,0;" 

4050 GOTO 2000 

4100 REM 

4101 REM RGG.TO PEDINE 

4110 IF H U=180 THEN LET PB=PB-1 
4120 IP 0*52 THEN LET PN=PN-1 
4130 RETURN 

4501 REM PINE PARTITO 

4B?I PRINT RT 20,0; "IL "+<"NERO" 
AND PB=0)+(”BIRNCÒ“ RND PN=0);" 
UINCE" 



60 

4640 

30 

4650 

5000 

6001 

8002 

5005 

5010 

5100 

5101 

5102 
5110 
5120 
5125 
5130 
5140 
5145 
DOMO 
5150 
5160 


THEN 

IP INKEY# < >"1“ THEN GOTO 45 

GOTO 25 
REM 

REM COPY SU PRINTER 

REM 

COPY 

GOTO 2010 
REM 

REM SELEZIONE 
REM 

LET PN*0 
LET PB»0 
LET L# = "" 

POR 1*1 TO 32 
PRINT RT B(I) 


SCACCHIERA 


I' 

IF 


RT 20,0; 
RURNZO'’ 

R* 

CODE R*<>53 


PEDINA *4= 


C < I) ; CHR* 

"I3=F- 


RND CODE R#< 


>41 THEN GOTO 5280 _ 

5170 PRINT RT 20,0;"B = NERO (3 
« BIRNC0 r ‘ 

51B0 INPUT S* 

5190 IP CODE 5*051 RND CODE S*< 
>39 THEN GOTO 5180 

5200 LET fl(I)=52+(128 RND CODE S 

* =51)-<29 RND CODE R#«41) 

210 LET PB*PB+(CODE S#«39) 

5220 LET PN =PN +(CODE S*=51) 

6230 PRINT RT B(I),C(I);CHR* Rd 
) 


■CHI DEUE MUO 


5240 NEXT I 
5250 PRINT RT 20,0; 

UERE? (B / N) r ' 

5260 LET M = 1 

5270 GOTO S270-<4570 RND INKEY * * 
"B" )—(4470 RND INKEY#="N") 

5280 LET R(I)=128 
5290 GOTO 5230 
5998 STOP „ 

3999 SRUE "DAMBJ" 

S000 GOTO 1 

7000 REM 

7001 REM STAMPA SCRCCHIERR 

7002 REM 

7010 POR N *1 TO 13 STEP 4 
7020 FOR 1=1 TO 13 STEP 4 
7030 PRINT RT 2+N,15+I;"B|_ ■”;Tfl 

| 1S+I ' " ■r-S tf, 


7040 NEXT I 
7050 NEXT N 
7060 POR 1=1 TO 13 STEP 
7070 PRINT RT 2,15 + 1; " — 
7080 PRINT RT 18,14+1; 


7090 PRINT 




w*" ; TRB 15 
7100 PRINT 


u In • 

7110 


RT 2+1, 
; ; TRE 

RT 1+I, 


2+4,15, 
TRB 15; 
31; " 


TRB 31; "J"; TRB 31;" 



’; RT 2,15; 


7120 PRINT RT 18,31; "| 

7?30 FOR 1=1 TO 32 
7140 PRINT RT B ( I) , C ( I) ; CHR# Rd 

ÌÌU PPINT^T | ; ^/.o a - H B¥R^CO";R 

in »» 

•MOSSA N. 

7190 RETURN 


7X60 KKilNI hi w,x = , i 

7170 PRINT RT 3,0,‘O 
T 9,0: "B - NERO 1 " 

7180 PRINT RT 18,0; "t 



Figura 1. La scacchiera, come si presenta all'inizio 
di una partita. 



VARIABILI UTILIZZATE 

PB 

Numero delle pedine bianche. 

PN 

Numero delle pedine nere. 

A(32) 

Matrice contenente il valore delle caselle della 
scacchiera: 52 = pedina bianca. 23 = dama 
bianca. 180= pedina nera, 151 =dama nera, 
128 = casella vuota. 

B(32) 

Matrice contenente le coordinate orizzontali 
delle caselle della scacchiera. 

C(32) 

Matrice contenente le coordinate verticali del¬ 
le caselle della scacchiera. 

M 

Numero della mossa. 

LS 

Stringa contenente le mosse effettuate da en¬ 
trambi i giocatori. 

MS 

Maschera per la cancellazione del video. 

V 

Valore della pedina nel corso della gara. 

Z 

Valore della dama nel corso della gara. 

X 

Punto di stampa a video della mossa del gioca¬ 
tore. 

A-S 

Mossa corrente. 

D-E-F 

Valore delle caselle durante la mossa effettua- 

RS 

ld. 

Valore della casella in fase di selezione della 
scacchiera. 

SS 

Colore della pedina o dama in fase di selezione 
della scacchiera. 
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1 Castello 



Un adventure per lo 
Spectrum 48 Kbyte 


di Luciano Lotti 

P er gli sfortunati che ancora 
non sapessero cos’è un ad¬ 
venture eccone una descri¬ 
zione! Si tratta di giochi che proiet¬ 
tano idealmente il giocatore in un 
mondo fantastico, ricco di cose stra¬ 
ne, pieno di pericoli e di enigmi che 
mettono a dura prova la fantasia. 
Lo scopo è di riuscire a “portare a 


casa la pellaccia” scoprendo il modo 
di attraversare le varie prove che il 
computer ci presenta. 

Non aspettatevi però di veder com¬ 
parire immagini in movimento ed 
effetti sonori: la descrizione degli 
ambienti in cui ci si muove è tutta 
dialogata (alcuni programmi pre¬ 
sentano anche delle schermate grafi¬ 
che). 

Ciò è dovuto in parte al fatto che le 
capacità grafiche dei primi elabora¬ 
tori su cui sono stati implementati 
questi programmi erano scarse e che 
esse comunque richiedono vaste 
aree di memoria, ma in parte è volu¬ 
to: la nostra fantasia, infatti, può 


riuscire a trasformare poche decine 
di parole in un'immagine ben più 
reale di qualunque disegno (per que¬ 
sto molti considerano le avventure 
grafiche un regresso). 

1 soggetti degli adventure spazia¬ 
no dai castelli inglesi con fantasmi e 
passaggi segreti, alle piramidi con 
mummie e teschi, al mondo delle 
fate con orchi, folletti, giganti e si¬ 
mili. 

Non si deve però credere che per 
questo siano giochi per bambini: 
tutt’altro, basta solamente dire che 
anche le avventure più semplici ri¬ 
chiedono ore e ore per essere risolte. 
Per passare attraverso un portone è 


Listato 1. // programma Castello. 

1013 60 SUB 6000: REM imz 
1 10 60 SUB 6800 : REM P f e S e ò t 
120 -IF_ luogo =99 THEN 60 506 690 
0 : 60 Tu 9990 

130 60 SUB 6500: SEM UdOSCrizB 

l-j5 ULd 

140 PRINT i. $ 

150 60 SUB 7000: REM | 0 9gettili 
200 60 SUB 6600. REM Ha C celta r» 
osi 

500 IF luogo 023 OR NuT g f Ti-lfcN 
60 Tu 300 
510 REM B GOBBO fe 
515 IF V $ < >"U C Cid i " ThEN 60 i0 
700 

520 IF par<2 THEN INPUT •Uccidi 
Chi ?" ; bS: IF bs = "" ThEN 60 TO 5 

20 

521 IF par<2 THEN LET par=2 
525 IF b$ O"i t gobbo" THEN 60 T 

0 760 

530 IF par<3 THEN INPUT "Con co 
sa devo ucciderlo ?",cg: IF •:$ = " 
“ THEN 60 TO 530 

531 LET oar=3 

535 IF c$<>”con i -ascia” then 6 
0 TO 700 

540 IF c$='l ascia" AND l 12) TH 
EN PRINT -"Non ho fascia ! '* : 60 
TO 700 

545 60 TO 300 

700 PRINT '"Il gobbo si avventa 
su di te e con te s o i e mani ti 
spezza la colonna vertebrale" 
60 TO 9990 

300 IF luogo<>4 OR NOT v i THEN 
60 TO 1000 
310 REM B ORMPIRO B 
815 IF v$o" mostra" Then 6u iù 


950 

320 IF par <2 THEN INPUT "Mostra 
a chi ?";b$: IF b$=" THEN 60 T 
O 620 

625 IF b$< >"al vampiro" THEN 60 
TO 950 

830 IF par<3 ThtN input '"Cosa 
devo mostrare al vampiro ?";c$: 
IF C$="" THEN 60 TO 830 
835 IF •;$<>" la croce" AND c$o" 
la croce d'oro" THEN 60 TO 950 
340 IF l 16i THEN PRINT "Non ho 
la croce doro": 60 TO 95© 

850 60 TO 1000 

950 F'R INT ■ ” 11 vampiro ti a f f e r 
r a e ti a z - zanna M c o 1 1 o.Ti t 
ras f ormi in un vampiro e 'sei co 
ndannato a vagare eternamente 
net castello": 60 Tu 9990 
1000 IF V 4 < > " n" THEN 60 TO 1060 
1005 REM B NORDlt 

1010 IF s$ìtuogo) (2 ro 3t ='00" r 
HEN PRINT "Non si può andare a 
nord": 60 TO 200 

1015 IF S$ì luogo,1) =” ■ THEN 60 

ro 1050 

1020 IF S$ (luogo,li OH" THEN PR 
INT "Cela porta che biocca i i 
pas- saggio": co ro 200 
1050 let luogo=OAL s$(luogo )12 T 
03): 60 TO 120 

1060 IF V $ < >"S" THEN 60 TO 1100 
1065 REM 1 SUd ■ 

1070 IF S*ì luogo) iS ro 6.| =" 00 " T 
HEN PRINT Non si può andare a 
sud": 60 TO 200 

1075 IF S$(luogo,4) = • THEN 60 

TO 1090 

1030 IF s $ i. tuogo, 4) THEN PR 

INT "C'e - la porta che biocca u 
pas- saggio": 60 TO 200 


50 















1090 LET luogo=URL £$( Luogo) (5 T 
0 6): GO TQ 120 

1100 IF V$O"0" THEN GO TO 1150 
ilio REM j ovest k 

1115 IF LUOgO) i.8 TO 9 >="00 T 

HEN PRINT '"Non si può andare a 
ovest": GO TO 200_ 

1120 IF S$(Luogo,7)= " THEN GO 

TO 1130 

1125 IF S* (Luogo ,7) <>"#'• THEN PR 
INT '"Ce La porta che btocca i 
L pas -saggio": GO TO 200 
1130 LET Luogo=UfiL S$(LUOgO)(3 T 
09): GO TO 120 

1150 IF V$<>"e" THEN GO TO 1200 
1155 REM 1 est! 

1160 IF SS (Luogo) (11 TO 12) ="00" 
THEN PRINT '"Non si può andare 
ad est": GO TO 200 
1165 IF S $ ( Luogo,10) =" " THEN GO 
TO 1175 

1170 IF S$ ( Luogo,10) <>"«" THEN P 
RINT '"Ce La porta che bLocca i 
L pas- saggio": GO TO 200 
1175 let Luogo =url s*(luogo)(ii 
TO 12): GO TO 120 

1200 IF V $ < >"S3 Li" THEN GO TO 12 
50 

1205 REM IsaLil 

1220 IF Luogo<>16 RND Luogo<>24 
THEN PRINT '"Non e'p 0 ss 1 biLe sa l 
ire": GO TO 200 

1230 LET Luogo=URL ss (Luogo) (14 

TO 15) : GO TO 120 

1250 IF V$<>" scendi" THEN GO TO 

1300 

1255 REM | scendi! 

1260 IF Luogo<>16 RNO Luogo<>24 
THEN PRINT "Non e possibiLe sce 
ndere": GO TO 200 
1270 LET Luogo = URL sS(Luogo)(17 


TO 18): GO TO 120 
1300 IF VS<>"apri" THEN GO TO 14 
00 

1305 REM | apri | 

1310 IF b$=“La bottiglia" RND NO 
T '.Luogo = Li 12) OR L (12) =0) THEN 
PRINT "Stai forse sognando , _non_ 
vedo aLcuna bo11igLia !": uG TO 

200 

1311 IF b$="La bottiglia" THEN P 
RINT “E'vuota e senza tappo": GO 

TO 200 

1313 IF par<2 THEN INPUT " RPRO 
COSPl ? " ; b$ : IF bS = “" OR b* = " " T 
HEN GO TO 1313 

1314 IF LEN b $ <11 THEN GO TO 131 
9 

1315 IF bS( TO 9)="la porta " TH 
EN LET C S = b$(10 TO ): LET par=3 

1319 IF b$<>"La porta" ThEN PR IN 
T "Non capisco come si possa apr 
ire";bs: GO TO 200 

1320 LET rS=" CLUNK!!! " 

1325 IF par<3 ThEN INPUT "In qua 
Le direzione ?";c$ 

1326 IF C$="" OR cs=" " THEN GO 
TO 1325 

1330 LET dir=0+(c$="a nord" OR c 
$=’n")+(4 hnD (cs = "a sud" OR cs = 
"s")) + (7 RND (c$ = "a ovest" OR c$ 
="O"))+(10 RND (c$="a est" OR cs 
= "e " ) ) 

1340 IF dir =0 ThEN PRINT '"Non h 
0 capito quale porta": LET par=2 
: GO TO 1325 

1350 IF S$(Luogo,dir)=" " THEN P 
RINT "In questa direzione non c' 
e'al- cuna porta": GO TO 200 
1353 IF ss ( Luogo .d i r) = "#" THEN P 
RINT '"Egia stata aperta": GO T 

o 200 

1355 LET K$=S$ ( Luogo ,di r) 


spesso necessario ricercare le chiavi 
poste, statene certi, in luoghi impen¬ 
sati custoditi da esseri strani che 
possono essere eliminati con l’ausi¬ 
lio di oggetti situati in posti ancora 
più stravaganti. 

Naturalmente non mancano per 
completare l’opera vampiri, zom¬ 
bie, trabocchetti, pozioni velenose 
che provocano prematuri decessi e 
la necessità di ricominciare dall’ini¬ 
zio. 

In questi mondi il giocatore non può 
però agire direttamente, ma deve or¬ 
dinare al computer cosa fare per lui. 
Si comanda un automa che per noi 
vede, agisce, vaga per i paesaggi e 


(sigili) subisce. 

Gli ordini al calcolatore vengono 
solitamente impartiti mediante sem¬ 
plici frasi, in linguaggio naturale, 
costituite da un verbo o da un verbo 
e un nome come: “prendi il diaman¬ 
te”, “sali”, “uccidi il folletto”, 
“nuota”, ecc. 

I verbi ammessi e i nomi riconosciuti 
non sono molti, ma vi assicuro che 
ciò non toglie nulla al divertimento, 
anzi il più delle volte costituisce una 
facilitazione nelle situazioni parti¬ 
colarmente arrovellate. 

Alcuni programmi commerciali, 
quali ad esempio “The Hobbit”, 
permettono di usare per le comuni¬ 


cazioni preposizioni ed avverbi che 
rendono il dialogo molto più natu¬ 
rale. 

Questo programma in particolare 
visualizza anche numerosi ambienti, 
esistenti anche nel libro da cui è sta¬ 
to tratto e di cui riproduce fedel¬ 
mente la trama, e possiede due ac¬ 
corgimenti particolari: l’Animtalk e 
l’Animaction. 

L’Animtalk permette di comunicare 
con gli altri personaggi dell’avven¬ 
tura rispondendo alle loro domande 
e dicendogli cosa si vuole che faccia¬ 
no. 

L’Animaction invece dota i vari per¬ 
sonaggi di un “anima” propria per 
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cui ad ogni nuova partita si possono 
comportare in modo leggermente 
diverso; se le richieste poste loro non 
sono cortesi, o il loro umore è un po’ 
“nero”, ci si può facilmente aspetta¬ 
re un secco “No!” come risposta. 


Strategie risolutive 

Ogni adventure ha una propria 
strategia risolutiva che va scoperta 
per tentativi ed errori. 

Sbagli in situazioni particolarmente 
delicate causano, come già accenna¬ 
to, una fine prematura che implica 
la ripetizione dall’inizio delle mosse 
che hanno portato a quel punto e la 
variazione delPultima azione che ha 
causato la penosa conclusione. 

Un valido aiuto per la soluzione è 
costituito da mappe che indichino le 
relazioni tra i vari ambienti ed even¬ 
tualmente le localizzazioni dei vari 
oggetti e pericoli. 

Non vi resta perciò che armarvi di 
carta e matita e, man mano che pro¬ 
cedete, aggiungere le nuove scoper¬ 
te. 

Il castello 

Il Castello è un adventure che si 


VARIABILI NUMERICHE 

altra Usato per levare il marcatore di porta chiusa, 

apr Flag che indica se si ha la chiave giusta. 

dir Contiene un codice corrispondente alla direzione ed è usato nell’aper¬ 

tura delle porte. 

fla Usato per indicare se lo spazio è tra il nome e l’articolo o dopo il nome, 

g Usato in vari cicli, 

gf Flag che indica se il gobbo è vivo. 

luogo Contiene il numero corrispondente al luogo in cui ci si trova, 
ogpr Numero di oggetti portati. 

pas Numero di parti di cui è composta la frase in input, 

pun Puntatore ultimo carattere analizzato della stringa, 

tro Flag che indica se l’oggetto è presente, 

uno Flag che indica se è già stato stampato il messaggio, 

vf Flag che indica se il vampiro è vivo. 


VARIABILI ALFANUMERICHE 

b$ Contiene il secondo elemento della frase in input. 

c$ Contiene il terzo elemento della frase in input. 

g$ Contiene il simbolo della condizione necessaria per lo spostamento in 

un altro locale. 
i$ Usato per l’input. 

k$ Indica il tipo di chiave necessaria per aprire la porta. 

1$ Contiene la descrizione del luogo. 

v$ Contiene il verbo della frase in input. 

z$ Usata per rendere uniforme la lunghezza di b$ nelle frasi “prendi xxx”, 

“posa xxx". 


1250-1270 

Scendi. 

1300-1390 

Apri. 

1400-1460 

Prendi. 

1500-1560 

Posa. 

1600-1645 

Inventario. 

1650-1700 

Mostra. 

1750-1760 

Inizio (per ricominciare). 

1765-1725 

Fine (per smettere). 

1800-1825 

Premi. 

1850-1870 

Aggrappati. 

1900 

Guarda. 

1910-1940 

Uccidi. 

2000-2025 

Mangia. 

5598 

Il verbo non è stato riconosciuto. 

6000-6300 

Inizializzazione. 

6500-6530 

Descrizioni. 

6600-6740 

Accetta frase. 

6800-6899 

Presentazione. 

7000-7060 

Stampa gli oggetti presenti. 

9990-9994 

Procedure di fine. 


VETTORI 


0$ 

Contiene il nome degli oggetti. 

s$ 

Tabella per i cambiamenti di stanza. 

1 

Contiene i luoghi degli oggetti. 

LE PRINCIPALI ROUTINE 

100 

Chiama inizializzazione. 

110 

Chiama presentazione. 

120 

Controlla se hai terminato l’avventura. 

130-150 

Stampa la descrizione del luogo. 

200 

Chiama accetta-mossa. 

500-700 

Procedure per il gobbo. 

800-950 

Procedure relative al vampiro. 

1000-1050 

Movimento a nord. 

1060-1100 

Movimento a sud. 

1110-1130 

Movimento a ovest. 

1150-1175 

Movimento a est. 

1200-1230 

Sali. 
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» 

s 

e 

o 


sali 

scendi 


apri 

(cosa) 

prendi 

(cosa) 

posa 

inventario 

(cosa) 

mostra 

inizio 

fine 

(a chi) (che cosa) 

premi 

(cosa) 

aggrappati 

(a cosa) 

uccidi 

(chi) (con cosa) 

mangia 

guarda 

(cosa) 


Tabella 1. Onesti sono i verbi e i co¬ 
mandi permessi nelle frasi di input. 
Tra le parentesi sono indicate le even¬ 
tuali specifiche da dare ad ogni verbo. 


svolge in un maniero abbandonato. 
Lo scopo è di uscire dalla porta d’o¬ 
ro che bisogna aprire con la chiave 
d’oro. 

I verbi ammessi sono indicati nella 
tabella I. 

Le eventuali parentesi che li seguo¬ 
no indicano le informazioni comple¬ 
mentari da digitare e il loro ordine: 
“uccidi il mostro con la lancia” è 
una frase corretta, “uccidi con la 
spada il mostro” non lo è. 

Per prendere un oggetto occorre 
scrivere per esteso il suo nome e ciò 
resta valido se lo si vuole posare. 

II numero massimo di oggetti tra¬ 
sportabili è due. 

Il comando “inventario” permette 
di conoscere cosa si stà portando. 
Per muoversi da una stanza all’altra 
si deve digitare l’iniziale del punto 
cardinale corrispondente alla dire¬ 
zione verso la quale ci si vuole muo¬ 
vere. 

Per aprire le porte usate la formu¬ 
la fissa “apri la porta” seguita odal¬ 


l’iniziale di un punto cardinale o dal 
suo nome per esteso (“a nord”, “a 
est”, ecc.). 

Onde evitare errori di riconoscimen¬ 
to dei comandi seguite attentamente 
le seguenti norme: non usate le 
maiuscole, separate le parole con un 
solo spazio e, soprattutto, non po¬ 
nete spazi dopo l'ultima lettera del¬ 
l’ultima parola. 

Fate anche attenzione a digitare i 
Data perche errori in queste istru¬ 
zioni possono alterare tutta la logica 
degli spostamenti fra le stanze. 

Importante: se digitate voi il pro¬ 
gramma avete praticamente risolto 
il 90% dell’avventura. 

Vi consiglio pertanto di far battere il 
listato I ad un amico (deve proprio 
esservi amico, se accetta), o di suddi¬ 
videre questo compito tra più perso¬ 
ne. Ultimo consiglio per i princi¬ 
pianti: attenzione, non è detto che 
tutti gli oggetti siano effettivamente 
utili! ■ 












Il Castello 


Seguito listato Castello. 

1360 LET apr=0+t K $ = "r“ RND NOT l 
C7) ) + ( K $ = "n " RND NOT l(4i)+(K* = " 
0" RND NOT l(5) ) + ( k$ = "f" RND NOT 
l (3) ) 

1365 IF apr=0 THEN PRINT '"Non h 
o la chiave ada11a": GO TO 200 
1370 LET S $ ( lu0g0 ,dir) ="«": LET 
a1tra =URL s$(iuogo) (dir +1 TO dir 
+2) 

1372 IF al tra=99 THEN GO TO 1390 
13 75 LET dir =(1 RND dir =4) + i 4 RN 
D dir *1)+(7 RND dir =10) +110 RND 
d i r=7) 

1380 LET s$(aitra,dir)="tt“ 

1390 PRINT r $ ' ' "La porla ";c$.;" 

e ape r ta": GO Tu 200 

1400 if v$<>"prendi" then go to 

1500 

1404 IF par<2 ThEN INPUT "Prendi 
cosa ?"b$ : LET C$=“": IF b$ = "" 
THEN GO Tu 1404 

1405 REM ■ prendi 1 

1406 IF b$ = "la moneta" OR b$="ta 
chiave" OR b $ = " l a croce" OR b$ = 

"la sfera" THEN LET b$=b$+" "+c$ 
1410 IF ogpr=2 THEN hRINT "Non p 
u 0 i portare p i u ' di due 0 g- getti 
. " : GO TO 200 

1415 LET t i‘O=0 : LET b$=b$+Z$ì TO 
22-LEN b $) 

1420 FOR g =1 ro 13 

1425 IF b*<>0$(9) THEN GO TO 145 
0 

1430 LET tro=l: IF l(d)=0 THEN P 
RI NT ' "Guarda che h 0 ' g i a ' "b $ . L 
ET g =13 : GO TO 1450 
1435 IF icg)<> luogo THEN PRINT " 
Qui non C'é'";b$: LET g=13: GO T 
0 1450 

1440 PRINT '" OK. !": LET lig)=0: 

LET g =13: LET ogpr=ogpr+l 
1450 NEXT g 

1455 IF NOT tro THEN PRINT b$,"n 
on e'un oggetto che posso pren-d 
ere" 

1460 GO TO 200 

1500 IF V$<:>"POSa" THEN GO TU 16 

00 

1505 REM ■ posa | 

1506 IF b$="la moneta" OR b$="ia 
chiave" OR b$="la croce" OR b$= 

"la sfera" THEN LET b$=b$+" "+c$ 
1510 IF ogpr =0 THEN PRINT "Non 
ho oggetti con me": GO TO 200 
1515 LET 1 1 " 0 =0 : LET b* = b$+Z$( TO 
22-LEN b $) 

1520 FOR g =1 TO 13 
1525 IF b$ < >0 $(9) THEN GO TO 155 
0 

1530 LET tCOsl: IF l(g)<>0 THEN 
PRINT '"Non ho in mano ";b$: LET 
g =13 : GO TO 1550 
1540 PRINT '" OK !": LET ltg)=lu 
ogo: LET g =13 : LET ogpr=ogpr-1 
1550 NEXT g 

1555 IF NOT tro THEN PRINT b$,"ri 
0 n e ' u n oggetto che posso por- t 
are" 

1560 Gù TO 200 

1600 IF v*<>"inventario" then GO 


TO 1650 

1605 REM ■ invent.l 
1610 IF ogp r=0 THEN PRINT '"Non 
sto'poriandò niente": GO TO 200 
1620 PRINT "Ho in -mano : 

1625 FOR g=l TO 13 

1630 IF NOT llg) THEN PRINT 0 $ig 

) 

1640 NEXT g 
1645 GO TO 200 

1650 IF v$<>"mostra" THEN GO TO 
1750 

1655 REM 1 mostra ■ 

1660 IF par<2 THEN INPUT "Mostra 
a Chi '?" ; b $ : IF b$ = " " THEN GO T 
0 1660 , 

1665 IF par <3 THEN INPUT ‘Cosa d 
evo mostrare ?”;c$: IF •:$ = "" THE 
N GO TO 1665 

1670 IF b$o“al vampiro" THEN GO 
TO 1700 

1672 IF V f 50 THEN PRINT '"Il vam 
P i r 0 e'gia" stato dis s 0 1 1 0 ": GO T 

0 200 

1675 IF luogo < >4 THEN PRINT "Non 
ci sono vampiri !■ Hai forse bev 
u to un goccetto di troppo ?": GO 
TO 200 

1630 IF c$o“ta croce d'oro" 1 HE 
N GO TO 200 

1690 LET V f =0 : PRINT '"Il vampi r 
0 alla vista della c r 0 -c e s 1 dis 
solve in una nuvo la dip 0 lvere : 

PRINT ''” PLUFF !!“: GO TO 200 
1700 PRINT "Non serve a niente m 
ostrare ";b$ ;" ";c $ : GO T 0 200 
1750 IF V$<>"inizio" THEN GO TO 

1755 REM fl inizio fl 
1760 RUN - 

1765 IF V$<>"fine" THEN Gu TU 18 
00 

1770 REM ■ fine ■ 

1775 STOP __ , 

1800 IF v$<>"premi" THEN uu Tu a. 
350 

1805 REM ■ premi H 
1810 IF (b$< >"il bottone rosso’ 
RND b$<>"il bottone") THEN PRINT 
"L'unica cosa che potrebbe esse 
reinteressante da premere sa rebb 
e un bottone rosso" 

1315 IF luogo<>26 THEN PRINT_"Ma 
non vedo il bottone !GO Tu &0 

0 - 
1320 IF (b$ = "i 1 bottone rosso O 
R b$="il bottone") RND luogo=26 
THEN PRINT '"Gli scaffali della 
cantina stari-no cadendo,proprio 
addos...": PRINT '" CRRSH ! 

! CRINKLE !!“: Gu TO 9990 
1325 GO TO 200 

1350 IF v$<>"aggrappati" THEN uu 
TO 1900 

1355 rem I aggrap I 
1360 IF par<2 THEN INPUT "Hggrap 
pati a che ?".;b$: IF b$ = "" then 
GO TO 1360 

1865 IF b$<>"alla corda" THEN PR 
INT "Non ci si può ' aggrappare": 
GO TO 200 

1867 IF luogo<>9 THEN PRINT '"St 
ai prendendomi per fesso ! No 
n c'e'nessuna corda": GO TO 200 
1370 PRINT '"Il soffitto non sor 
regge il tuo peso e crolla seppe 
l tèndo ti ": GO TO 9990 
1900 IF v$="quarda" THEN GO TO 1 
20 

1910 IF V$<>”UCCidi" THEN GO TO 
2000 

1915 REM ■ uccidi ■ 

1920 IF par<2 THEN INPUT "Uccidi 
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Seguilo Usuilo Castello. 

Chi ?" ; b$: IF b$ = “ " THEN 60 TO 
1920 

1925 IF b$ < >"i l vampiro" RND b$< 
>"il gobbo" THEN PRINT "Stai SCh 
erzando vero ?": GO tq 200 
1930 IF b $ = "iL vampiro" RND ( tuo 
90 04 OR NOT Vf) THEN PRINT "Non 
ci sono vampiri qui ! Penso che 
il tuo equilibrio mentale sti 
a vacillando.": GO T0 200 
1935 IF b $ = " i l gobbo" RND (luogo 
028 OR NOT gf> THEN PRINT -"Hai 
le traveggole ? Non ci sono gob 

■ -- — 200 

l'ascia" THEN LE 
Il gobbo stramaz 
finisce su una b 
apre e dopo aver 
pit a r e si ric hiu 
mente dietro di 


bi.": GO TO 
1940 IF c$="con 
T gf=0: PRINT 
za al suolo e 
otola che si 
lo fatto preci 
de inesorabil- 


a" THEN GO TO 


THEN P 
GO TO 

'"Non s 
GO TO 

e ' a v v e l e 


lux !" : GO TO 200 
2000 IF v$o"mangi 
2050 

2005 rem ■ Mangia M 
2010 IF par<2 THEN INPUT "Mangia 
cosa ?";b$ IF b$ = " " THEN làO TO 
2010 

2015 IF b$ < >"i l biscotto 
RINT '"Non dire idiozie" 

200 

2020 IF 1(11) THEN PRINT 
to'portando il biscotto" 

200 

2025 PRINT "Il biscotto 
nato": GO TO 9990 

5998 PRINT ,"H";v$;"l.Non e-un 

verbo utilizzabile": 60 tu 200 

5999 STOP 

6000 REM Minizial i z . M 

6010 DIM 0 $(13 ,22) : DIM l(13J 
6020 RESTORE 6020: FOR 9=1 TU 13 
: RERD 0$(g),l(9): NEXT 9 
6030 DRTR "il pugnale",!?, Lasc 
i a**,6, la chiave di ferro" ^30^1 
a chiave nera",27,"la chiave d o 
ro",ll,"la croce d'oro",20,"la c 
biave rossa",14," la sfera di cri 
stailo" . 18,"i i diamante ", 23,’i a 
nello",? 

6035 DRTR "il 
ottiglia", 26, 

6040~"d IM s $ (30,18) „ __ __ 

6050 RESTORE 6050: FuR 9=1 TU 30 
: RERD S4(9): NEXT 9 .. 

6060 DRTR " 02 14fl5o9y 00 00 , 
r03 ©i ©0 0© ©0 00"," 04r02 00 0 
0 00 00"," 00 03 05 00 00 00",” 
00 00f06 04 00 00" 

6065 DRTR " 00 0? 00r05 00 00", 
06 08 00 00 00 0©"," 0? 0S 00 0 
0 00 00"." 08 10 00 00 00 00",” 
09 f 11 00 00 00 00" , „ 

6070 DRTR "f10 00 00 f12 00 00_, 
00 00fiIr 13 00 00","rl4 00rl2 0 
0 00 00"." 01rl3 00 00 00 00 , 

16 00 001*01 00 00" 

6075 DRTR " 00 00 00 00 15 17 , 
24 I6nl8 00 00 00"," 00ri9r23nl 
7 00 00 " . " r 13 1 * 201*22 00 00 00 ","r 
19 001*21 00 00 00" 


biSCOt tO" 
‘la moneta 


,15,"la b 
d ' a r g e n t 


6030 DRTR "r22 0© 00r20 00 00"," 
r23i*21 00rl9 00 00"," 00,22 00rl 
8 00 00"." 00 00 00 00 17 25"," 
00 24r 26 27 00 00" 

6085 DRTR " 00 00 00r25 00 00"," 
00 00 25 28 00 00"," 00 29 2? 0 
0 00 00"." 281*30 00 00 00 00 ", "r 
29 00 00 00 00 00" 

6100 LET luogo=1 

6110 LET V f *1: LET gf=ì: LET ogp 
r =0 

6115 LET Z $ =" 

6300 RETURN 

6500 GO TO 6500+luogo 

6501 LET l$s"Sei in una stanza d 
i forma qua- d r a t a con una porta 

d oro a est,una porta rossa a o 
vest e due passaggi nelle alti* 
e due dire- zioni. Non ci sono 
mobili ne fi-nestre.": RETURN 

6502 LET i$="Sei in un corridoio 
con i muri colorati di azzurro 

.Sul sor* fi t- to c'e un affresco 
rovinato in molti punti. C'e'un 
a porta ros- sa a nord ed un p as 
saggio a sud.": RETURN 

6503 LET i$="Sei in un corridoio 
che ha due feritoie:da quella 

rivolta a estsi può'osserva re il 
parco ed il sentiero che conduc 
e fuori dal parco che circonda 
il castello. Quella a ovest e'tr 
op p o in alto perche'riesca a ved 
e re.C'e'una porta rossa a sud e 
si può an- dare a nord.sopra l 
a porta c'e' l'immagine di un pi 
pistre l 10 . ": RETURN 

6504 LET i$="Sei in una stanza s 
c a r sa mente illuminata dalla lu 
ce provenien-te dai passaggi a o 
vest e a sud." + i" C'e'un vampiro 

che si avvicina minacciosamente 
" RND V f) : RETURN 

6505 LET i$="Sei in un corridoio 
illuminato da un lucernario su 

l soffitto. Sopra la porta ross 
a ad ovest c'e un quadro che r 
appresenta un lupo.Sul muro ad es 
t, sopra un passaggio, c'e'un o 
mbra come se qualcuno avesse lev 
ato una cor- nice.“: RETURN 

6506 LET l$="Sei in un'ampia sta 
nza ammobi- liata.Piccole ragna 
tele sono at-taccate ovunque.C'e 
'una porta a est di color rosso 
ed un passag-gio a sud.": RETURN 

6507 LET l$="Sei in un corridoio 
con passeggia sud e nord.Da una 
feritoia si puo'vedere il lago 

ad ovest del castello.": RETURN 

6508 LET i*="Sei in un corridoio 
con passaggia sud e nord.Da una 
feritoia si puo'vedere il lago 

ad ovest del castello.": RETURN 

6509 LET i$="Sei in uno stretto 
corridoio e dal centro del soff 
itto pende una grossa corda.Le 

uscite sono a nord e sud.": RET 
URN 

6510 LET i$ = "Sei in un corridoio 
senza fine- stre. Sul soffitto 

probabiimen- te era dipinta una 
scena di cac-cia . fì nord c'e'un 
passaggio e a sud c'e'una gross 
a porta di ferro.": RETURN 

6511 LET l$="Sei in una stanza d 
i forma otta-gonaie con un ri tra 
11o di Di r K 51 ruan e ,. sullo s fo 
ndo, un clip-per. R nord e ad es 
t vi sono duepor te di ferro.": R 
ET URN 

6512 LET l$="Sei in un corridoio 
dipinto di az zu rro . Il muro a 
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Il Castello 


Seguito listato Castello. 

sud e'm al- cuni punti nero. Se 
mòrano trac- ce di fuliggine. IL 
soffitto ha una vistosa c re p 
a da cui fil-trano dei raggi di 
soie, fi ovestc'e'una porta di fe 
rro . fi est c ' e ' u n a porta rossa 
. ": RETURN 

6513 LET l$="Sei in una stanza s 
carsamente illuminata con dell 
e porte < 

: RETURN 

6514 LET !.$ = • 

. Da una fe- 

vedere il 


rossea nord e ad ovest 


nord 


Sei in 
ri t o i a 
bos co . 
ed una 


ggio a -- 

a sud.": RETURN 
6515 LET l$="Sei in 
i f o r m a qu a - d r a t a . — 
c'e'un gres-so tavolo di 
Si può'anda rea nord e c e 


u n c o r r i d o i o 
ad est posso 
C'e'un passa 
porta rossa 


una stanza d 
In un angolo 
noce, 
•una po 


r t a rossa a est 

6516 LET l.$="Sei 
soffitto e ' una 

i muri della par 
u 'umidi che in 
•" : RETURN 

6517 LET L $ = "Seì 
mpia. In 


. . RETURN 

sulle scale. Il 
volta a botte, 
te bassa sono pi 
cima alla rampa. 


o tavolo 
i angoli 
r t a ri e i a 
i a nord 

6518 LET 
del castello 
ad e s t, u ri a 
itra rossa a 

6519 LET l$= 


stanza a 
un gross 
e con gl 
C ' e ' u n a p o 
dei pas s a g g 


_ in una 

un ango io c ' e 
t u t-1 o tarlato 
s — mussati 

3 ovest e - 

p SUd.": RETURN 

Sei nella Libreria 
C " e ' u n a porta ne ra 
rossa a sud ed una 
ovest.": RETURN 
sei nella libreria 


1 $ 


del castetlo.C'e'una porta rossa 
ad ovest,una rossa a sud ed un' 
aitr a r ossa a no r d . " : RETURN 
6550 LET t$="Sei nella libreria 
del caste ilo.C'e'una porta rossa 
ad ovest ed un'altra rossa a no 
id.": RETURN 

6521 LET i*="Sei nella libreria 
dei castello.C'e'una porta rossa 

ad est ed unaitra rossa a nord. 
": RETURN 

6522 LET L*="Sei nella libreria 
del castelio.C'e'una porta rossa 

ad est,una rossa a sud ed un'a 
Itra rossa a nord.": RETURN 

6523 LET l*="Sei nella libreria 
del castello.C'e'una porta rossa 

ad est ed una l tra rossa a sud." 
: RETURN 

6524 LET l$=”Sei sulle scale. Il 
soffitto e' una volta a botte. 

I muri sono tutti umidi.": RETU 
RN 

6525 LET i$a"Sei in una stanza s 
cavata nella r o c cia.11 soffitto 
e'Pàubasso che nei locali supe 
riori. Ce' una porta rossa a o 
vest, un pas-saggio a est ed uno 

a SUd": RETURN 

6526 LET ita"Sei nella cantina d 
el castello. Su un blocco di pie 
tra a forma di cubo c'e'un bott 
one rosso.": RETURN 

6527 LET l$=“Sei in un corridoio 
scavato nei -la roccia. Il muro 


a nord e molto umido, ti s o n 

o due passag-gi: uno a est e l'a 
itro ad ovest": RETURN 
6523 LET i$=”Sei in quella che d 
oveva essere la stanza delle tor 
ture. C'e'un passaggio a sud e u 
no ad ovest. "+("C'e'un gobbo se 
duto su un tavolo" fiND gf): RETURN 

6529 LET i$="Sei in un corridoio 
con un pas- saggio a nord ed un 

a porta rossa a sud.": RETURN 

6530 LET L$="Sei in una stanza i 
n cui l'unicauscita e ' u n a porta 
rossa a n o r d.11 pavimento trema 
ad ogni passo» sul soffitto c'e' 
una botola da cui si infiltra del 
l'acqua che cola sul muro. La b 
otola sembra molto precaria.": R 
ETURN 

6600 REM Iaceetta mossa! 

6605 LET V $ ="": LET b*="": LET C 
$ = 






i $ 

6620 
6625 
6630 
6640 
6645 
6650 
6655 
6640 
6660 
r =1 : 
667t' 
b680 
6685 
6690 


IF i$="" THEN GQ T0 6610 
IF i$m=" " THEN GO TO 6610 
LET pun=l: LET v$ = "" 

LET Vt=V* + i $ ipun) 

LET pun=pun+l 

IF pun >LEN i* THEN GO TO 6660 
IF i*(pun)<>" " THEN GO TO 

IF LEN i$-pun<3 THEN LET pa 
RETURN 

LET pun=pun+l: LET fla=0 
LET b$=b$+i$(pun) 

LET pun=pun+l 

IF L,EN i $ <pUn THEN LET par» 


2: RETURN 

6700 IF fla fiND i$ (pun) =" " THEN 
GQ TO 6720 

6705 IF i$(pun)=" " THEN LET fla 
= 1 


6710 GO TO 6680 

6720 IF LEN i$-pun<l THEN LET pa 
r =5 : RETURN 

6730 LET C$ = i $ (pun+l TO ) 


6740 LET par=3: RETURN 
6300 REM ! presentazione! 

6810 PRINT '"Ti trovi in un cast 
elio abbando-nato. Devi riuscire 
ad uscirne sano e salvo a f f ron 
tando i vari pericoli che si ann 


idano tra le mura." 

6820 PRINT '"Ti consiglio di far 
e molta at- tenzione. Hfi! Hfi! H 


fi 1 ..." 

6330 INPUT "Premi ENTER per comi 
nciare"; i $ 

6899 RETURN 

6900 REM !uSCito! 

6910 PRINT "Ben fatto sei ri usci 
to a compie-tare l'avventura.Non 
ti resta che attraversare il 
sentiero deiparco ed andartene a 
ila prima fermata dell'autobus 
senza fartiinvestire." 

6999 RETURN 

7000 rem | oggetti I 
7010 LET uno=0 

7020 FOR g =1 TO 13 

7030 IF ugjoluogo THEN GO TO 7 

050 

7040 IF NOT uno THEN PRINT '"Ued 
o di interessante :": LET uno=l 
7045 PRINT 0 $(g) 

7050 NEXT g 
7060 RETURN 

9990 REM ! FINE I 

9991 INPUT " ancora o fine (a/f) 
?" ; LINE i$ 

9992 IF ì$ = "a" THEN RUN 

9993 IF i$i>"f“ THEN GO TO 9991 

9994 STOP 
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SERVIZIO SOFTWARE 



P.S. propone ai propri lettori i dischi o le cassette dei programmi 
pubblicati. I programmi, provati e garantiti, sono di immediato utilizzo. 



P.S. n° 

Programma 

Sistema 

3 

La carta del cielo 
Collisione 

Apple II 

4 

Interi in precisione 
multipla 

Grafica 3D 

Apple II 

5 

Pretty printer 

Shape table 

Apple II 

7 

Data base modulare 

Apple II 

12-13 

Wei-ch'i 

CBM 3032 

14 

Tool-Kit 

C 64 

19 

Type Writer 

VIC 20 

20 

Scopa 

C 64 - 3032 


Prezzo 

Codice 

Supporto 

30.000 

1 

Disco 

40.000 

4 

Disco 

30.000 

6 

Disco 

25.000 

7 

Disco 

20.000 

8 

Cassetta 

35.000 

9 

Cassetta 

30.000 

10 

Disco 

25.000 

11 

Cassetta 


Per richiedere i programmi in contrassegno, pagando direttamente al postino la cifra indicata, inviare II seguente tagliando 

Spedire in busta chiusa a Gruppo Editoriale Jackson - Via Rosellini, 12 • 20124 Milano 




Inviatemi i seguenti nastri e/o dischi con i programmi 
pubblicati su P.S. 


a 


GRUPPO EDITORIALE JACKSON 


Cod. 

Cod. 

Cod. 

Cod. 


Cod. L 


1 | 

1 

1 

1 

1 

1 

a l. L 

1 

1 

1 

1 

1 1 

Cognome 

Nome 

1 | 

1 

1 

1 

1 

1 

a L L 

i 

1 

1 

1 

1 1 

1 | 

1 

1 

1 

1 

1 

a L L 

l 

1 

| 

| 

1 | 


I | 

I 

I 

I 

1 

1 

al. L 

1 

1 

1 

1 

| | 

CAP 

1 L 

L 

L 

L 

J 

J 

al. ! 

L 

1 

L 

L 

J 1 

Città 


l SPESE POSTAU 

(contributo fisso) L 3.000 TOTALE L. I—I—I—I—I—I—I 

che pagherò al postino alla consegna del pacco Firma 























































Roulette 


Un classico gioco 
per il vostro Texas TI99 


di Mauro Cristuib Grizzi 

Q uesto programma è stato 
scritto per il TI99/4A for¬ 
nito di modulo SSS Exten- 
ded BASIC, e permette di giocare 
alla roulette europea (quella diffusa 
nei nostri Casinò e senza il doppio 
zero). 

Possono esserci fino a sei giocatori 
contemporaneamente, mentre le 


Listato 1. // listato del programma 
Roulette, è stato ottenuto usando una 
speciale codifica per i caratteri di 
controllo: quando trovate in una 
stringa un carattere sottolineato, ciò 
significa che dovrete premere quel ta¬ 
sto insieme al tasto Control. Ad esem¬ 
pio. A significa Control + A. 


100 GOTO 130 :: OPTION BASE 
1 :: DIM M(34,6),MA(34,6),M2 

(6,6) ,PU(7) ,FP(6) ,NOME$(6) ,C 
L$ ( 6) ,COL$ (3,6):: CALI, CHARS 
ET : : CALL GCHAR 
110 CALL CLEAR : : CALL SCREE 
N : : CALL COLOR : : CALL SOUN 
D : : CALL KEY : : CALL CHAR : 
: CALL CHARPAT : : CALL VCHAR 
:: CALL HCHAR :: RANDOMIZE 

120 PLAYER,PL,GI,I,W,N,A,X,K 
EY,STATUS,A$,B$,C$ :: !@P- 

130 GOSUB 1390 :: CALL CLEAR 
: : CALL CHARSET 
140 FOR 1=49 TO 56 :: CALL C 
HARPAT(I,A$): : CALL CHAR(1+6 
3,A$,1+71 ,A$) : : NEXT I : : CA 
LL CHARPAT(48,A$,57,B$):: CA 
LL CHAR(102,A$,103,B$,110,A$ 
,111,B$) 

150 CALL COLOR(0,16,1,1,8,1, 


giocate possibili sono le seguenti: 

• Numeri Pieni: è la classica giocata 
su un numero che, se estratto, rende 
35 volte la posta; 

• Cavalli: gruppi di due numeri, ad 
esempio 1 e 2 oppure 1 e 4; paga 17 
volte la posta; 

• Terzine: gruppi di tre numeri con¬ 
secutivi sulla stessa riga, come 1,2,3 
oppure 13,14,15; paga 11 volte la 
posta; 

• Carré: gruppi di quattro numeri in 
quadrato, come 1, 2, 3, 5 oppure 14, 
15, 17, 18; paga 8 volte la posta; 

• Sestine: gruppi di sei numeri con¬ 
secutivi su due righe, come sestina 
1-6, oppure sestina 13-18; paga 5 


160 CALL CHAR(130,"000000000 
0000000080808080808080800000 
OFF"):: CALL CHAR(136,"00000 
OFF") 

170 RANDOMIZE :: FOR 1=5 TO 
8 : : CALL COLOR(1,8,1):: NEX 
TI:: FOR 1 = 2 TO 4 : : CALL 
COLOR(1,16,1):: NEXT I 
180 PRINT " HHHHHHHHHHHHHHHHH 
HHHHHHHHHHH ": :" INSERIRE LE 

GIOCATE,TRANNE LA PUGLIA,I 
N UNITA * 1 * * 4 * 1 DI 1 000": :" HHHHHHHH 

HHHHHHHHHHHHHHHHHHHH": : : : 


190 INPUT "QUANTI GIOCATORI? 
(MAX.6)":PLAYER :: FOR PL=1 
TO PLAYER :: INPUT "NOME,PRE 
GO? ":NOME$(PL): : INPUT "PUG 
LIA DI PARTENZA?":PU(PL): : P 
RINT : : NEXT PL : : G 

1 = 1 

200 FOR PL=1 TO PLAYER : : IF 
PL=FP(PL)THEN 500 
210 PU(7)=0 :: CL$(PL)="" :: 

FOR 1 = 1 TO 3 : : COL$(I,PL) = 
"" :: NEXT I :: FOR 1=1 TO 3 

4 

220 MA(I,PL),M(I,PL)=0 :: NE 
XT I : : FOR 1 = 1 TO 6 :: M2(I 
,PL)=0 :: NEXT I :: GOSUB 13 
30 

230 CALL KEY(0,KEY,STATUS): : 
IF STATUS = 0 OR(KEY<48 OR KE 


Y>57)THEN 230 

240 KEY=KEY-48 :: IF KEY=0 T 
HEN 470 

250 ON KEY GOSUB 270,290,310 
,330,350,380,410,430,450 
260 GOSUB 1330 :: GOTO 230 
270 GOSUB 1110 :: INPUT "QUA 
NTI PIENI?(MAX.6).":N :: FOR 

1 = 1 TO N : : INPUT "NUMERO?P 
UNTATA?":M(I,PL),A :: MA(I,P 
L)=A*1000 

280 PU(7)=PU(7)+MA(I,PL): : N 
EXT I : : RETURN 
290 GOSUB 1110 :: INPUT "QUA 
NTI CAVALLI?(MAX.6) ":N :: F 

OR 1 = 1 TO N : : INPUT "NUMERI 
7PUNTATA?":M(1+6,PL),M2(I,PL 
) ,A 

300 MA(1+6,PL)=A*1000 :: PU( 
7)=PU(7)+MA(1+6,PL): : NEXT I 
: : RETURN 

310 GOSUB 1110 :: INPUT "QUA 
NTI CARRÉ'?(MAX.6) ":N :: FO 

R 1=1 TO N :: INPUT "NUM.PIU 
'BASSO?PUNTATA?":M(1 + 12,PL) , 
A 

320 MA(1+12,PL)=A* 1 000 :: PU 
(7)=PU (7)+MA(1+12,PL): : NEXT 
I : : RETURN 

330 GOSUB 1110 :: INPUT "QUA 
NTE TERZINE?(MAX.6) ":N :: F 

OR 1 = 1 TO N : : INPUT "NUM.PI 
U'BASSO?PUNTATA?":M(1+18,PL) 
,A :: MA(1+18,PL)=A* 1000 
340 PU(7)=PU(7)+MA(1+18,PL): 
: NEXT I : : RETURN 


volte la posta; 

• Dozzine: le tre dozzine giocabili 
sono la 1-12, la 13-24 e la 25-36; 
pagano 2 volte la posta; 

• Colonne: le tre colonne A, B, e C 
pagano 2 volte la posta; 

• Pari/Dispari e Rosso/Nero paga¬ 
no 1 volta la posta. 

Il programma, dopo essersi infor¬ 
mato sul numero dei giocatori e sui 
rispettivi capitali disponibili, passa 
al primo giocatore e gli chiede quali 
giocate intenda fare tramite un me¬ 
nu di gioco. Scegliendo la (o le) op¬ 
zioni desiderate, si visualizzerà il ta¬ 
volo verde ed il programma chiede¬ 
rà numeri e puntata. Per puntate su 


7,7,15,9,7,15,10,2,15,11,7,1 
5,12,2,15,14,8,15) 
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Terzine, Carré, Sestine e Dozzine 
sarà sufficiente battere i! numero 
più basso compreso nel gruppo, ed il 
computer provvederà a calcolare 
anche gli altri automaticamente. 
Dopo ogni puntata viene visualizza¬ 
to il capitale ancora disponibile e 
quello giocato; finito di puntare, oc¬ 
corre premere il tasto di fine giocata 
ed il calcolatore, dopo avervi infor¬ 
mato sul totale giocato, passerà a 
raccogliere le puntate del giocatore 
seguente. 

Quando tutti avranno puntato, 
verrà estratto il fatidico numero e 
visualizzati gli esiti, giocatore per 


350 GOSUB Ilio :: INPUT "QUA 
NTE SESTINE?(MAX,6)":N :: FO 
R 1=1 TO N :: INPUT "NUM.PIU 
'BASSO?PUNTATA?":M(1 + 24,PL) , 
A :: FOR W=1 TO 34 STEP 3 :: 

IF M(I+24,PL)=W THE 
N 370 ELSE 360 
360 NEXT W :: PRINT "NUMERO 
NON CONGRUENTE" :: FOR W=1 T 
O 150 :: NEXT W :: GOTO 350 

370 MA(1+24,PL)=A*1 000 :: PU 
(7)=PU(7)+MA(1+2 4,PL): : NEXT 
I : : RETURN 

380 GOSUB Ilio :: INPUT "QUA 
NTE DOZZINE?":N :: FOR 1=1 T 
O N :: INPUT "NUM.PIU'BASSO? 
PUNTATA?":M(1+28,PL),A :: FO 
R W=1 TO 25 STEP 12 :: IF M( 
1+28,PL)=W THEN 400 
ELSE 390 

390 NEXT W :: PRINT "NUMERO 
NON CONGRUENTE" :: FOR W=1 T 
O 150 :: NEXT W :: GOTO 380 

400 MA(1+28,PL)=A*1000 :: PU 
(7)=PU(7)+MA(1+2 8,PL): : NEXT 
I : : RETURN 

410 CALL CLEAR :: INPUT "QUA 
NTE COLONNE?":N :: PRINT :: 
FOR 1 = 1 TO N : : INPUT "COLON 
NA7PUNTATA?":COL$(I,PL),A :: 

MA(1 + 30,PL)=A* 1 000 
420 PU(7)=PU(7)+MA(1+30,PL): 

: NEXT I : : RETURN 

430 CALL CLEAR : : INPUT "PAR 


I-DISPARI?(P/D)PUNTATA? ":A 
$,A :: IF A$ = "P".THEN COL$ ( 3 
,PL)="PARI" ELSE COL$(3,PL)= 
"DISPARI" 

440 MA(33,PL)=A*1000 :: PU(7 
)=PU(7)+MA(33,PL): : RETURN 
450 CALL CLEAR :: INPUT "COL 
ORE (R/N)?PUNTATA?":A$,A :: 
IF A$="R" THEN CL$(PL)="ROSS 
O" ELSE CL$(PL)="NERO" 

460 MA(34,PL)=A*1000 :: PU(7 
)=PU(7)+MA(34,PL) : : RETURN 
470 DISPLAY AT(24,1):USING " 
TOT GIOCATO #######":PU( 

7) 

480 FOR W=1 TO 500 :: NEXT W 
:: IF PU(7)<=PU(PL)THEN 500 

490 CALL SOUND(100,500,0): : 
PRINT "GIOCATA SUPERIORE A Q 

UANTO POSSEDUTO-NON ACCE 

TTATA" :: FOR 1=1 TO 500 :: 
NEXT I :: GOTO 210 
500 NEXT PL :: PRINT : : :: 
X=INT(37*RND): : CALL CLEAR : 

: FOR 1=1 TO 10 :: DISPLAY A 
T(16,5)BEEP:"ATTENDERE PREGO 

^ tl 

510 FOR W=1 TO 50 :: NEXT W 
: : CALL CLEAR : : FOR W=1 TO 
50 : : NEXT W : : NEXT I 
520 FOR 1=1 TO 35 STEP 2 :: 
IF X=I THEN B$="NERO" :: GOT 
O 540 

530 NEXT I : : IF X=0 THEN B$ 

="-" ELSE B$="ROSSO" 

540 FOR 1=2 TO 36 STEP 2 :: 
IF X=I THEN C$="PARI" :: GOT 


O 560 

550 NEXT I :: IF X=0 THEN C$ 

= •'-» ELSE C$ = "DISP. " 

560 FOR PL=1 TO PLAYER : : PU 
(7)=0 :: IF PL=FP(PL)THEN 10 
80 

570 PRINT "USCITO IL";X;"-"& 
C $ & " - " & B$ & " - ": : :: CALL SOU 

ND ( 200,1500,0) : : PRINT "RISU 
LTATI DI ”;NOME$(PL): : :: F 

OR 1=1 TO 6 :: IF MA(I,PL)=0 
THEN 610 

580 IF XOM(I,PL) THEN 600 
590 PRINT "PIENO ”;M(I,PL) 

;TAB(23);"*VINCE" :: PU(7)=P 
U(7)+35*MA(I,PL) : : GOTO 610 

600 PRINT "PIENO ";M(I,PL) 

;TAB(23);"PERDE" :: PU(7)=PU 
(7)-MA(I,PL) 

610 NEXT I :: FOR 1=7 TO 12 
: : IF MA(I,PL)=0 THEN 650 
620 IF X=M(I,PL)OR X=M2(I-6, 
PL)THEN 640 

630 PRINT "CAVALLO ";M(I,PL) 
;M2(1-6,PL);TAB(23);"PERDE" 

:: PU(7)=PU(7)-MA(I,PL): : GO 
TO 650 

640 PRINT "CAVALLO ";M(I,PL) 
;M2(1-6,PL);TAB(23);"*VINCE" 
:: PU(7)=PU(7)+17*MA(I,PL) 

650 NEXT I :: FOR 1=13 TO 18 
:: IF MA(I,PL)=0 THEN 690 
660 A=M(I,PL) : : IF X=A OR X= 
A+l OR X=A+3 OR X=A+4 THEN 6 
80 


giocatore e giocata per giocata. Si 
passerà quindi a raccogliere le pun¬ 
tate successive. 

Il programma è ricco di controlli e 
quindi, se provate a barare, vi pren¬ 
derà sempre in “castagna”. Se poi 
malauguratamente doveste finire i 
soldi, il computer ve ne presterà 
quanti ne vorrete, e senza pretender¬ 
ne la restituzione! 

Alcuni commenti al listato 

100-120 - Elenco dei sottoprogram¬ 
mi e delle variabili usate, per ridurre 
il tempo di attesa dopo il Run. 


130-160 - Presentazione e definizio¬ 
ne caratteri speciali. 

170-190 - Raccolta dei dati su nume¬ 
ro di giocatori, rispettivi nomi e ca¬ 
pitali disponibili. 

200-260 - Visualizzazione del menu 
di gioco ed accettazione della opzio¬ 
ne selezionata. 

270-280 - Subroutine accettazione 
Numeri Pieni. 

290-300 - Subroutine accettazione 
Cavalli. 

310-320 - Subroutine accettazione 
Carré. 

330-340 - Subroutine accettazione 
Terzine. 
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Roulette 


Seguito listato Roulette. 

670 PRINT "CARRÉ' ";A;A+1;A+ 
3;A+4;TAB(23);"PERDE" :: PU( 
7)=PU(7)-MA(I,PL): : GOTO 690 

680 PRINT "CARRÉ 1 ";A;A+1;A+ 
3 ; A+4 ;TAB (23) ; "*VINCE" :: PU 
(7)=PU(7)+8*MA(I,PL) 

690 NEXT I :: FOR 1=31 TO 32 
:: IF MA(I,PL)=0 THEN 760 
700 FOR W=1 TO 34 STEP 3 :: 
IF W=X THEN A$="A" 

710 IF X=W+1 THEN A$="B" 

720 IF X=W+2 THEN A$="C" 

730 NEXT W : : IF A$=COL$(I-3 
0,PL)THEN 750 

740 PRINT "COLONNA ";CO 

L$ (1-30,PL);TAB(2 3);"PERDE" 

:: PU(7)=PU(7)-MA(I,PL): : GO 
TO 760 

750 PRINT "COLONNA ";CO 

L$(1-30,PL);TAB(23);"‘VINCE" 
:: PU(7)=PU(7)+2‘MA(I,PL) 

760 NEXT I :: FOR 1=19 TO 24 
:: IF MA(I,PL)=0 THEN 800 
770 A=M(I,PL): : IF X=A OR X= 
A+l OR X=A+2 THEN 790 
780 PRINT "TERZINA ";A;A+1;A 
+2;TAB(23);"PERDE" :: PU(7)= 
PU(7)-MA(I,PL) : : GOTO 800 
790 PRINT "TERZINA ";A;A+1;A 
+2;TAB(23);"*VINCE" :: PU(7) 
=PU(7)+11‘MA(I,PL) 

800 NEXT I :: FOR 1=25 TO 28 
:: IF MA(I,PL)=0 THEN 840 
810 FOR W=M(I,PL)TO M ( I, PL) + 
5 : : IF XOW THEN 830 
820 PRINT "SESTINA ";W;"-";W 
+5;TAB(23);"*VINCE" :: PU(7) 

= PU(7)+5*MA(I,PL) : : GOTO 840 

830 NEXT W :: PRINT "SESTINA 
";M(I »PL);"-";M(I,PL)+5;TAB 
(23);"PERDE" :: PU(7)=PU(7)- 
MA ( I, PL) 

840 NEXT I :: FOR 1=29 TO 30 
:: IF MA(I,PL)=0 THEN 880 
850 IF X<M(I,PL)OR X>M(I,PL) 
+11 THEN 870 

860 PRINT "DOZZINA ";M(I,PL) 

;;M(I,PL)+11;TAB(23);"*VI 
NCE" :: PU(7) = PU(7)+2*MA(I,P 
L) : : GOTO 880 

870 PRINT "DOZZINA ";M(I,PL) 

;";M(I,PL) +11;TAB(23);"PER 
DE" :: PU(7)=PU(7)-MA(I,PL) 

880 NEXT I :: IF MA(33,PL)=0 
THEN 970 

890 IF X=0 THEN 960 

900 IF COL$(3,PL)="PARI" THE 

N A=1 ELSE A=2 



910 FOR 1=2 TO 36 STEP 2 :: 
IF X=I THEN 920 ELSE 930 
920 ON A GOTO 950,960 
930 NEXT I 

940 ON A GOTO 960,950 

950 PRINT COL$(3,PL);TAB(23) 

;"‘VINCE" :: PU(7)=PU(7)+MA( 

33,PL): : GOTO 970 

960 PRINT COL$(3,PL);TAB(23) 

;"PERDE" :: PU(7)=PU(7)-MA(3 
3, PL) 

970 IF MA(34,PL)=0 THEN 1010 

980 FOR 1=1 TO 35 STEP 2 :: 
IF X=I AND CL$(PL)="NERO" TH 
EN PRINT CL$(PL);TAB(23);"*V 
INCE" :: PU(7)= PU(7)+MA(34,P 
L): : GOTO 1010 
990 NEXT I : : FOR 1 = 2 TO 36 
STEP 2 : : IF X=I AND CL$(PL) 
="ROSSO" THEN PRINT CL$(PL); 
TAB(23);"‘VINCE" :: PU(7)=PU 
(7)+MA(34,PL): : GOTO 1010 
1000 NEXT I :: PRINT CL$(PL) 
;TAB(23);"PERDE" :: PU(7)=PU 
(7)-MA(34,PL) 

1010 PU(PL)=PU(PL)+PU(7) 

1020 PRINT USING "ESITO GIOC 
ATA +##########":PU(7): : PRI 
NT USING "NUOVA PUGLIA #### 
#######":PU(PL) : : IFPU(PL)> 
0 THEN 1060 

1030 CALL SOUND(1000,140,0): 
: PRINT : :"HAI FINITO I SOL 

DI!": : :: INPUT "VUOI UNA N 

UOVA PUGLIA? ":A$ :: IF A$<> 
"SI" THEN 1050 

1040 INPUT "QUANTO? ":PU(PL) 
:: GOTO 1060 
1050 FP(PL)=PL 


1060 PRINT : :'•****** PREMI 
UN TASTO : : 

1070 CALL KEY(0,KEY,STATUS): 
: IF STATUS=0 THEN 1070 ELSE 
1080 

1080 NEXT PL 

1090 Gl=GI+1 :: GOTO 200 

1100 END 

1110 CALL CLEAR : : CALL COLO 
R(13,2,15) 

1120 FOR 1=5 TO 14 :: CALL V 
CHAR(8,1,130,16): : NEXT I :: 

FOR 1=19 TO 28 :: CALL VCHA 
R(10,1,130,14):: NEXT I 
1130 FOR 1=8 TO 11 STEP 3 :: 

CALL VCHAR(9,I,131,15): : NE 
XT I 

1140 FOR 1=22 TO 25 STEP 3 : 
: CALL VCHAR(10,1,131,14):: 
NEXT I 

1150 FOR 1=10 TO 22 STEP 2 : 
: CALL HCHAR(I,6,132,8):: CA 
LL HCHAR(1,20,132,8): : NEXT 
I :: CALL HCHAR(18,6,136,8): 
: CALL HCHAR(14,20,136,8) 
1160 DISPLAY AT(9,4)SIZE(-8) 

:"BBBBnBBB" :: DISPLAY AT(11 
,4)SIZE(-2):"Bx" 

1170 DISPLAY AT(11,7)SIZE(-2 
):"Bq" :: DISPLAY AT(11,10)S 
IZE(-2):"Bz" :: DISPLAY AT(1 

3.4) SIZE(-2):"Bs" 

1180 DISPLAY AT(13,7)SIZE(-2 
):"B|" :: DISPLAY AT(13,10)S 
IZE(-2):"Bu" :: DISPLAY AT(1 

5.4) SIZE(-2):"B~" 

1190 DISPLAY AT(15,7)SIZE(-2 
):"Bw" :: DISPLAY AT(15,10)S 
IZE(-2):"Bo" :: DISPLAY AT(1 

7.4) SIZE(-2):"pf" 

1200 DISPLAY AT(17,7)SIZE(-2 
):"xx" :: DISPLAY AT(17,10)S 
IZE(- 2):"pq" 

1210 DISPLAY AT(19,4)SIZE(-2 
):"xz" :: DISPLAY AT(19,7)SI 
ZE(-2):"ps" :: DISPLAY AT(19 
,10)SIZE(- 2):"x|" 

1 220 DISPLAY AT(21,4)SIZE(-2 
):"pu" :: DISPLAY AT(21,7)SI 
ZE(-2) :"x - " :: DISPLAY AT(21 
,10)SIZE(- 2):"pw" 

1230 DISPLAY AT(23,4)SIZE(-2 
):"BA" :: DISPLAY AT(23,7)SI 
ZE(-2) :"BB" :: DISPLAY AT(23 
,10)SIZE(-2):"BC" 

1240 DISPLAY AT(11,18)SIZE(- 
2):"xo" :: DISPLAY AT(11,21) 
SIZE(- 2):"qf" 

1250 DISPLAY AT(11,24)SIZE(- 
2):"yx" :: DISPLAY AT(13,18) 
SIZE(-2):"qq" :: DISPLAY AT( 
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13,21)SIZE(-2) : "yz" 

1260 DISPLAY AT(13,24)SIZE(- 
2):"qs" :: DISPLAY AT(15,18) 
SIZE(-2):"y|" 

1270 DISPLAY AT(15,21)SIZE(- 
2):"qu" :: DISPLAY AT(15,24) 
SIZE(-2):"y~" :: DISPLAY AT( 
17,18)SIZE(- 2) :"qw" 

1280 DISPLAY AT(17,21)SIZE(- 
2):"yo" :: DISPLAY AT(17,24) 
SIZE(- 2):"rf" 

1290 DISPLAY AT(19,18)SIZE(- 
2):"zx" :: DISPLAY AT(19,21) 
SIZE(-2):"rq" :: DISPLAY AT( 

19.24) SIZE(- 2):"zz" 

1300 DISPLAY AT(21,18)SIZE(- 
2):"rs" :: DISPLAY AT(21,21) 
SIZE(- 2) :"z | " :: DISPLAY AT( 

21.24) SIZE(- 2):"ru" 

1310 DISPLAY AT(23,18)SIZE(- 
2):"BA" :: DISPLAY AT(23,21) 
SIZE(-2) : "E5B" :: DISPLAY AT( 

23.24) SIZE(- 2) :"BC" 

1320 PRINT :: RETURN 

1 330 CALL CLEAR : : CALL COLO 
R ( 13,9,2): : DISPLAY AT(1,1): 
"GIOCATA N."; Gl ;"DI";" "&NOM 
E$(PL) : : DISPLAY AT(2,1):"DD 
DDDDDDDDDDDDDDDDDDDDDDDDDD " 

1340 DISPLAY AT(3,1):"PRESS 


350-370 - Subroutine accettazione 
Sestine e controllo correttezza dei 
numeri scelti. 

380-400 - Subroutine accettazione 
Dozzine e controllo correttezza dei 
numeri scelti. 

410-420 - Subroutine accettazione 
Colonne. 

430-440 - Subroutine accettazione 
Pari/Dispari. 

450-460 - Subroutine accettazione 
Rosso/Nero. 

470-490 - Visualizzazione del totale 
giocato e controllo che questo non 
superi il capitale disponibile. 
500-510 - Ciclo di attesa prima del¬ 
l’estrazione del numero vincente. 
520-550 - Calcolo del colore del nu¬ 
mero estratto e verifica della sua di- 
visibilità per due (Pari o Dispari). 
560 - Ciclo For/Next per il numero 
totale di giocatori, con controllo sui 
giocatori che hanno esaurito il pro¬ 
prio capitale e vanno quindi “salta¬ 
ti” dal ciclo stesso. 

570 - Presentazione del numero usci¬ 
to ed intestazione dei risultati della 


1 PER PIENI" :: DISPLAY AT(5 
,1):"PRESS 2 PER CAVALLI" 
1350 DISPLAY AT(7,1):"PRESS 
3 PER CARRÉ"' :: DISPLAY AT ( 

9.1) :"PRESS 4 PER TERZINE" : 

: DISPLAY AT(11,1):"PRESS 5 
PER SESTINE" :: DISPLAY AT(1 

3.1) :"PRESS 6 PER DO 
ZZINE" 

1360 DISPLAY AT(15,1):"PRESS 
7 PER COLONNE" : : DISPLAY A 
T( 17,1) :"PRESS 8 PER PARI/DI 
SP." :: DISPLAY AT(19,1):"PR 
ESS 9 PER ROSSO/NERO" 

1370 DISPLAY AT(21,1):"PRESS 
0 PER FINE" :: DISPLAY AT(2 

3.1) :"POSSEDUTE" :: DISPLAY 
AT(23,17):USING "#######":PU 
(PL) 

1380 DISPLAY AT(24,1):"DISP. 
DA GIOCARE" :: DISPLAY AT(24 
,17): USING "###### " : PU (PL) - 
PU(7): : RETURN 
1390 FOR 1=65 TO 88 :: CALL 
CHARPAT(I,A$) : : CALL CHAR(I+ 
31,A$):: NEXT I :: FOR 1=9 T 
Oli : : CALL COLOR(1,2,11):: 
NEXT I 

1400 CALL CLEAR :: CALL SCRE 
EN(2): : CALL CHAR(136,""): : 
CALL COLOR(14,9,9): : FOR 1 = 2 


giocata del giocatore FL. 

580-600 - Analisi della giocata sui 
Pieni. 

610-650 - Analisi della giocata sui 
Cavalli. 

660-690 - Analisi della giocata sui 
Carré. 

700-760 - Analisi della giocata sulle 
Colonne. 

770-800 - Analisi della giocata sulle 
Terzine. 

810-840 - Analisi della giocata sulle 
Sestine. 

850-880 - Analisi della giocata sulle 
Dozzine. 

890-1010 - Analisi della giocata su 
Pari/Dispari e Rosso/Nero. 
1020-1080 - Calcolo e visualizzazio¬ 
ne di esito giocata, nuovo capitale e, 
nel caso questo sia nullo, offerta di 
una nuova puglia. 

1110-1320 - Subroutine visualizza¬ 
zione del tavolo di gioco. 

1330-1380 - Subroutine visualizza¬ 
zione menu di gioco. 

1390-1540 - Subroutine presentazio¬ 
ne del gioco. ■ 


TO 32 :: CALL HCHAR(1,I,136 
): : NEXT I : : FOR 1 = 1 TO 24 
:: CALL VCHAR(1,32,1 
36) 

1410 NEXT I :: FOR 1=32 TO 2 
STEP -1 :: CALL HCHAR(24,1, 

136):: NEXT I :: FOR 1=24 TO 
,1 STEP -1 : : CALL VCHAR (1,2 
,136):: NEXT I :: CALL CHAR( 
129,""):: CALL COLOR 
(13,5,5):: W=3 : : PL=13 : : X 
=5 :: N=29 

1 420 FOR I=X TO N : : CALL HC 
HAR(W,1,129): : NEXT I :: FOR 
A=W TO PL :: CALL VCHAR(A,N 
,129):: NEXT A :: FOR I=N TO 
X STEP -1 :: CALL HCHAR(PL, 

1,129) 

1430 NEXT I :: FOR A=PL TO W 
STEP -1 :: CALL VCHAR(A,X,1 

29): : NEXT A : : X=X+1 : : N=N 

-1 :: W=W+1 :: PL=PL-1 :: IF 

PL-W<0 THEN 1 440 ELSE 1420 

1 440 FOR W=3 TO 8 : : CALL CO 
LOR(W,16,5): : NEXT W :: A$ = " 
0613ROULETTE" :: GOSUB 1540 

1450 A$="081OBYAMACRISTUIB" 
:: GOSUB 1540 :: CALL CHAR(1 
20,""): : CALL COLOR(12,11,11 
):: CALL CHAR(58,"FFFFFFFFFF 
FFFFFF") 

1460 FOR 1=17 TO 19 STEP 2 : 
: FOR W=8 TO 26 :: CALL HCHA 
R(I,W,120) : : NEXT W :: FOR W 
=26 TO 8 STEP -1 :: CALL HCH 

AR(I+1,W,120): : NEXT W :: NE 
XT I 

1470 A$="l809sdw'rxhmrsqtldm 
sr" :: GOSUB 1540 :: A$="191 
3bnlotsdq" :: GOSUB 1540 :: 
FOR A=24 TO 1 STEP -2 :: FOR 
X=2 TO 32 :: CALL GCHAR(A,X 
,W): : IF W=32 THEN C 
ALL HCHAR(A,X,58) 

1480 IF W=129 THEN X=29 
1490 IF W=120 THEN X=26 
1500 NEXT X :: FOR X=32 TO 2 
STEP -1 :: CALL GCHAR(A-1,X 

,W): : IF W=32 THEN CALL HCHA 
R(A-1,X,58) 

1 51 0 IF W=129 THEN X=5 
1520 IF W=120 THEN X=8 
1530 NEXT X :: NEXT A :: RET 
URN 

1 540 A=VAL(SEG$(A$,1,2)): : X 
=VAL(SEG$(A$,3,2)): : FOR 1 = 5 
TO LEN(A$) : : W=ASC(SEG$(A$, 

1,1)):: CALL HCHAR(A,X,W): : 
CALL SOUND (5,800,0): : X=X+1 
: : NEXT I : : RETURN 
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o ne Touch 
per VIC 20 


Un modo 

per velocizzare l’input 
dei programmi 

di Giorgio Beìlegatti 

C ome è noto, il VIC 20 e i 
sistemi Commodore in ge¬ 
nere offrono il vantaggio 
di poter abbreviare diverse istruzio¬ 
ni BASIC. 

Nonostante questo, però, ho pensa¬ 
to di rendere ancor meno pesante la 
battitura dei programmi, riducendo 
alla pressione di un solo tasto (+ 
Ctrl) la scrittura di interi comandi. 
Inoltre, a differenza delle abbrevia¬ 
zioni standard, ho attribuito alle va¬ 
rie istruzioni il massimo dei caratteri 


compatibili, per esempio l’apertura 
delle parentesi dopo tutte le funzioni 
il Return dopo Run, List, Cont. 
Nell’assegnazione dei tasti, come il¬ 
lustrato nella tabella 1, ho cercato di 
raggruppare le istruzioni in modo 
omogeneo sulla tastiera e precisa- 
mente. nella parte alta (prime 2 file 
di tasti) ho assegnato i comandi ed, 
in particolare, addensati alla sinistra 
quelli di uso più frequente (ciò di¬ 
venta comodo tenendo conto che 
per attivare un’istruzione si deve 
premere contemporaneamente an¬ 
che il tasto Ctrl), mentre, nella parte 
inferiore, la penultima riga contiene 
le funzioni matematiche e l’ultima le 
funzioni stringa. 

Inoltre sono stati attivati anche i ta¬ 
sti funzione (FI, F3, F5, F7). 

Nella scelta delle istruzioni da abili¬ 
tare ho tralasciato quelle di due let¬ 


tere in quanto mi sembrava che il 
vantaggio fosse irrilevante. 

Esaminando la tabella noterete 
subito la mancanza di Print, ma per 
quest'ultima penso che sia già molto 
comoda l’abbreviazione usuale (in¬ 
fatti, non è persa la possibilità di 
servirsi anche delle solite abbrevia¬ 
zioni). 

Tutte le altre istruzioni sono state 
abilitate, tranne qualcuna di uso as¬ 
sai raro come Lct, Stop, Cnid. 
Infine, ho volutamente tralasciato il 
New al fine di evitare spiacevoli con¬ 
seguenze alla pressione di un solo 
tasto errato... 

Per rendere, comunque, agevole ri¬ 
cordare la corrispondenza tra i vari 
tasti e le relative istruzioni, almeno 
per i primi tempi, è possibile appli¬ 
care adesivi riportanti le istruzioni 
su ogni tasto. 


TABELLA DI CORRISPONDENZA TASTO-COMANDO 
(parte superiore tastiera) 

TABELLA DI CORRISPONDENZA TASTO-COMANDO 
(parte inferiore tastiera) 

Tasto 

Comando 

Tasto 

Comando 

— 

THEN 

A 

ABS( 

1 

PEEK( 

S 

EXP( 

2 

POKE 

D 

LOG( 

3 

WAIT 

F 

SGN( 

4 

READ 

G 

SQR< 

5 

DATA 

H 

INT( 

(> 

RESTORE 

J 

RND( 

7 

CLR 

K 

SIN( 

8 

END 

L 

COS( 

9 

OPEN 


TAN( 

0 

CLOSE 

* 

ATN( 

+ 

LOAD 

= 

FRE(O) 

— 

SAVE 

Z 

ASC( 

i 

VERIFY 

X 

CHRS( 

Q 

GOSUB 

C 

LEFTS( 

w 

RETURN 

V 

RIGHTS( 

E 

GOTO 

B 

MIDS( 

R 

SYS 

N 

STRS( 

T 

FOR 

M 

VAL( 

Y 

NEXT 


LEN( 

U 

STEP 


SPC( 

1 

GET 

/ 

TAB( 

O 

INPUT 

FI 

RUN- 

P 

DEFFN 

F3 

LIST- 

@ 

DIM 

F5 

CONT- 

♦ 

1 

NOT 

AND 

F7 

REM 


Tabella I. Lista dei tasti che consentono di abbreviare i comandi. 
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Listato 1. 1/ programma One Touch. 

10 REM **************** 

15 REM**************** 

20 REM***0NE TOUCH**** 

25 REM***** BY ******* 

30 REM****GIORGIO***** 

35 REM**BELLEGOTTI**** 

40 rem**************** 

45 REM**************** 

50 PRINT"[<1CLR>][<1RED>][<2CRSR D>]***** 
*ONE TOUCH******":PRINT"[<2CRSR D>][<1BL 
U>]ATTENDI ALCUNI ISTANTI" 

55 P=PEEK(56):PP=P*256 

60 FORX=PP-564TOPP-9 :READA:IFA<0THENA=P+A 
+ 1 

65 POKEX,A:NEXT 

70 FORX=700TO722:READA:IFA<0THENA=P+A+1 
75 POKEX,A:NEXT: SYS700 

80 POKE56,P-3 :POKE52, P- 3 :POKE55,200 :POKE5 

1,200 

85 PRINT"[<3CRSR D>] ONE TOUCH ATTIVATO ! 
" : NEW 

90 REM*‘PUNTATORI** 

95 DATA53,-2,66,-2,78,-2,93,-2,103, -2,1 16 
,-2,128,-2,89,-3,47,-2,233,-3 
100 DATA247,-3,1 ,-2,13,-2,25,-2,37,-2,89, 
-3,89,-3,152,-3,164,-3,176,-3 
105 DATAI 88 ,-3,200,-3,21 2,-3,89,-3,89,-3, 
89,-3,90,-3,105,-3,121,-3,134,-3 
110 DATAI 46,-3,89,-3,89,-3,84,-3,97,-3,1 1 
4,-3,128,-3,140,-3,89,-3,136,-2 
115 DATA89,-3,158,-3,170,-3,182,-3,194,-3 
,206,-3,218,-3,142,-2,226,-3,241,-3 
120 DATA252,-3,7,-2,18,-2,32,-2,42,-2,149 
,-2,60,-2,72,-2,84,-2,98,-2 
125 DATAI 09,-2,1 22,-2,89,-3,1 56,-2,0,0,0, 
0 , 0 , 0 , 0,0 

130 REM*‘COMANDI** 

135 DATA20,65,83,67,40,0,20,67,72,82,36,4 
0,0,20,76,69,70,84,36,40,0 


140 DATA20,82,73,71,72,84,36,40,0,20,77,7 
3,68,36,40,0,20,83,84,82,36,40,0 
145 DATA20,86,65,76,40,0,20,76,69,7 8,40,0 
,20,83,80,67,40,0,20,84,65,66,40,0 
150 DATA20,65,66,83,40,0,20,69,88,80,40,0 
,20,76,79,71,40,0,20,83,71,78,40,0 
155 DATA20,83,81,82,40,0,20,73,78,84,40,0 
,20,82,78,68,40,0,20,83,73,78,40,0 
160 DATA20,67,79,83,40,0,20,84,65,78,40,0 
,20,65,84,78,40,0,20,70,82,69,40,48,41,0 
165 DATA20,71,79,83,85,66,0,20,82,69,84,8 
5,82,78,0,20,71,79,84,79,0 
170 DATA20,83,89,83,0,20,70,79,82,0,20,78 
,69,88,84,0,20,83,84,69,80,0 
175 DATA20,71,69,84,0,20,73,78,80,85,84,0 
,20,68,69,70,70,78,0,20,68,73,77,0 
180 DATA20,78,79,84,0,20,65,78,68,0,20,84 
,72,69,78,0,20,80,69,69,75,40,0 
185 DATA20,80,79,75,69,0,20,87,65,73,84,0 
,20,82,69,65,68,0,20,68,65,84,65,0 
190 DATA20,82,69,83,84,79,82,69,0,20,67,7 
6,82,0,20,69,78,68,0,20,79,80,69,78,0 
195 DATA20,67,76,79,83,69,0,20,76,79,65,6 
8,0,20,83,65,86,69,0,20,86,69,82,73,70,89 
,0 

200 DATA3,82,8 5,78,1 3,0, 3,76,73,83,84,1 3, 
0,3,67,79,78,84,13,0,3,82,69,77,0,0 
205 REM**ROUTINES** 

210 DATAI 73,1 41 ,2,201 ,4,208,46,205,142,2, 
240,41,165,203,201,64,240,35,10,168,185,2 
04 

215 DATA-4,133,1,185,205,-4,133,2,160,0,1 
77,1,240,9,153,119,2,230,198,200,76,194,- 
2 

220 DATAI 69,4,1 41 ,142,2,76,214,235,76,220 
,235,0,0,0,0,72,8,165,214,201,20,48,8,32 
225 DATAI 1 7,233,1 98,21 4,76,224,-2,32,1 35, 
229,40,104,76,124,197,0,0 
230 DATAI 20, 169,1 62,141 ,143,2,169,-2,141 , 
144,2,169,222,141,4,3,169,-2,141,5,3,88,9 
6 


Il programma, ovviamente in lin¬ 
guaggio macchina, gira con qualsia¬ 
si configurazione di memoria ed oc¬ 
cupa solo 568 byte. 

Il programma BASIC non fa altro 
che caricare i dati per il linguaggio 
macchina nella zona più alta della 
memoria, oltre naturalmente a pro¬ 
teggere questi stessi dati da sovrap¬ 
posizioni, abbassando i puntatori di 
fine memoria (55-56). 

Appena avete terminato di scrivere. 


salvate subito il programma senza 
dare il Run, in quanto esso, termina¬ 
ta l’esecuzione, si autocancella. 
Inoltre, state molto attenti a digitare 
in modo esatto tutti i dati poiché un 
solo errore può portare al blocco 
completo del sistema o, comunque, 
a risultati disastrosi. 

Il programma in linguaggio mac¬ 
china sfrutta la possibilità, offerta 
dal VIC 20, di intervenire sui punta¬ 
tori RAM che indirizzano ad alcune 


routine del sistema operativo. 

In particolare ho modificato i pun¬ 
tatori (655-656) alla routine che con¬ 
trolla la tastiera e che viene eseguita 
60 volte al secondo, essendo chia¬ 
mala dall’Irq. 

Ciò, però, non può essere effettuato 
in BASIC con l’istintivo Poke 
655,X:Poke 656,Y, che può anche 
costringervi a spegnere il computer, 
ma da una breve routine in linguag¬ 
gio macchina che, prima di modifi- 
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care questi puntatori, setti il flag I 
del microprocessore in modo da in¬ 
terrompere temporaneamente le 
chiamate dell’Irq. 

Nel mio programma ciò viene ese¬ 
guito mediante la Sys700 della riga 
75 e risulta anche molto utile poiché, 
quando si preme Stop-Rcstore, One 
Touch viene disabilitato, ed in que¬ 
sto modo, per rimetterlo in funzio¬ 
ne, basta digitare in modo diretto 
una nuova Sys 700. 

Con questo sistema, dunque, prima 
che vengano svolte le normali ope¬ 
razioni del sistema operativo, sono 
riuscito a far eseguire la mia nuova 
routine, la quale, in sostanza, non fa 
altro che controllare se viene premu¬ 
to un tasto contemporaneamente a 
Ctrl e, in caso affermativo, a leggere 
mediante dei puntatori i codici 
ASCII dell'istruzione corrisponden¬ 
te e a porli nel buffer di tastiera. 
Penserà poi il sistema operativo a 
togliere questi caratteri dal buffer e 



a mostrarveli sul video. 

Il primo problema che mi si è pre¬ 
sentato era quello di riuscire ad abi¬ 
litare il maggior numero di tasti sen¬ 
za togliere nello stesso tempo nessu¬ 
na delle loro particolarità. 

Infatti, se avessi scelto di far scrivere 
le varie istruzioni BASIC in seguito 
alla semplice pressione di un tasto, o 
insieme a Shil't, Ctrl o Commodore, 
sarebbero venute meno alcune delle 
sue varie funzioni originali. Ho pen¬ 
sato allora di abilitare il mio One 
Touch solo nel caso in cui il tasto- 
istruzione venga premuto per primo 
e il tasto Ctrl per secondo: il contra¬ 
rio, in pratica, dell'usuale modo di 
utilizzo dei tasti con Shift o Ctrl. 
Cosi, se per esempio premete i tasti I 
e Ctrl, vedrete visualizzato sul video 
Peek, ma se premete Ctrl e I, allora 
vedrete il cursore diventare di colore 
nero. 

In questo modo sono riuscito ad 
abilitare ben 53 tasti dei 64 presenti 



LIBRERIA JACKSON 



A Milano, 

in via Mascheroni 14. 
La prima software 
libreria italiana 


n 


A Milano, in via Mascheroni 14. 

Tel. 02-437385 


Vieni a trovarci: 

ti aspettiamo. 


Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 


Dove? Alla Ubreria JACKSON 

La prima software - libreria italiana. 






















One Touch 
per VIC 20. 


Listato 

2. Disassemblato 

della nuova routine che controlla la tastiera 

(puntata dalle 

memorie 655-656) nel caso in cui si lavori con l’espansione di 

memoria da 8 Kbyte. 



16290 

LDA 

651 


controlla se è stato 

1629.1 

CMP 

#4 


premuto il tasto Ctrl: 

16295 

BNL 

16141 


in caso negativo salta 

16297 

CMP 

654 


alla normale routine 

16100 

BEO 

16141 


del sistema operativo. 

16102 

LDA 

201 


Controlla se è stato premuto un tasto: 

16104 

CMP 

#64 


in caso negativo salta alla 

16106 

BEQ 

16141 


normale routine del sistema operativo. 

16108 

ASL 



Legge i puntatori 

16109 

TAY 



relativi al tasto 

16110 

LDA 

15820.Y 


premuto e li pone nelle 

16111 

STA 

1 


locazioni di memoria 

16115 

LDA 

1582I.Y 


in pagina zero 

16118 

STA 

2 


1 e 2. 

16120 

LDY 

#0 


Legge i codici ASCII 

16122 

LDA 

(D.Y 


dell'istruzione fino 

16124 

BEQ 

16115 


al primo zero 

16126 

STA 

61I.Y 


e li memorizza nel 

16129 

INC 

198 


buffer di tastiera 

16111 

INY 



incrementando il 

16112 

JMP 

16122 


contatore 198. 

16115 

LDA 

#4 


Memorizza che è stato 

16117 

STA 

654 


premuto il tasto Ctrl. 

16140 

JMP 

60174 


Salta alla fine della routine del S.O. 

16141 

JMP 

60180 


Salta all’inizio della routine del S.O. 


Listato 3. Disassemblato della routine che controlla Ut posizione de! cursore 

sullo schermo (puntata dalle 

memorie 772-773) nel caso in cui si lavori con 

l'espansione da 8 Kbyte. 


16150 

PHA 


: Salva sullo stack l’accumulatore. 

16151 

PHP 


; Salva il registro di stato. 

16352 

LDA 

214 

; Controlla se il cursore si trova 

16154 

CMP 

#20 

; sulle ultime tre righe dello schermo: 

16156 

BMI 

16166 

: in caso negativo esce dalla routine. 

16158 

JSR 

59765 

; Effettua lo scroll del video. 

16161 

DEC 

214 

: Decrementa la riga del cursore. 

16161 

JMP 

16152 

; Salta ad un nuovo controllo. 

16166 

JSR 

58759 

: Setta la nuova posizione del cursore. 

16169 

PLP 


: Riprende il registro di stato. 

16170 

PLA 


; Riprende l’accumulatore. 

16171 

JMP 

50556 

: Salta alla routine originale. 


sulla tastiera, senza togliere nessuna 
delle loro varie ecl utilissime funzio¬ 
ni: è così possibile, come detto in 
precedenza, utilizzare anche, qualo¬ 
ra sia necessario (per esempio nelle 
linee di programma più lunghe di 88 
caratteri), le abbreviazioni stan¬ 
dard. . 

Ho dovuto, però, aggiungere nella 
lista dei codici ASCII, all’inizio di 
ogni istruzione, il codice 20, corri¬ 
spondente al comando di tastiera 


Del, in quanto, dovendo il tasto- 
istruzione essere premuto prima del 
tasto Ctrl, questo avrebbe scritto 
anche il segno grafico corrisponden¬ 
te, alterando così la corretta scrittu¬ 
ra di un’istruzione. 

Infatti, se per esempio premete il 
tasto Q, vedrete apparire sullo 
schermo la lettera corrispondente, 
ma appena premete insieme anche il 
tasto Ctrl, la Q scomparirà e verrà 
visualizzata al suo posto il comando 


Gosub. 

Sempre per questo motivo le istru¬ 
zioni One Touch funzionano anche 
in modo virgolette, ma non in modo 
Inst. 

Un ultimo problema era dovuto al 
fatto che quando il cursore giunge in 
fondo allo schermo e, quindi, avvie¬ 
ne lo scroll del video, i caratteri im¬ 
magazzinati nel buffer di tastiera 
vengono persi e di conseguenza, la 
scrittura delle istruzioni non avveni¬ 
va in modo completo. 

Per capire meglio ciò, provate a po¬ 
sizionarvi col cursore sull’ultima li¬ 
nea del video e cominciate a digitare 
delle istruzioni a caso col sistema 
sopraesposto. 

Noterete che, quando il cursore va a 
capo, l’ultima istruzione della linea 
precedente rimane spezzata a metà. 
Siccome, quando si digita un pro¬ 
gramma, ci si trova sempre sulle ul¬ 
time linee dello schermo, non era un 
difetto per niente trascurabile. 

Il rimedio è stato trovato interve¬ 
nendo, con lo stesso sistema, su 
un’altra routine del sistema operati¬ 
vo, quella che trasforma i comandi 
BASIC in token e che viene eseguita 
ogni volta che si preme Return. 

I suoi puntatori si trovano nelle lo¬ 
cazioni di memoria 772 e 773 e ven¬ 
gono modificati anch’essi dalla Sys 
700. 

La nuova routine puntata, prima di 
saltare alla normale gestione dei dati 
del sistema operativo, controlla se il 
cursore si trova nelle ultime 3 righe 
dello schermo e, in caso affermati¬ 
vo, effettua lo scroll del video fino a 
quando il cursore non giunge alla 
quartultima riga. 

In questo modo, poiché una linea 
di programma BASIC non può esse¬ 
re più lunga di 4 linee del video, il 
cursore non raggiungerà mai il fon¬ 
do dello schermo, a meno che non ci 
si posizioni volutamente, e il pro¬ 
gramma funzionerà perfettamente. 

II listato 1,2 e 3 contengono rispetti¬ 

vamente il programma BASIC, e i 
disassemblati delle routine di con¬ 
trollo tastiera e della posizione del 
cursore su video. ■ 
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Super Assembler 


Utilizziamo 
il linguaggio macchina 
con il Commodore 64 


di Gianluca Puccio 

Per iniziare 

I primo programma con¬ 
tiene, sotto forma di linee 
Data, delle routine in lin¬ 
guaggio macchina che saranno usa¬ 
te dal programma principale. 

Dato il Run, le routine sono poste in 
memoria con delle Poke dopodiché 



il programma si autodistrugge, 
quindi è utile registrarlo prima di 
eseguirlo. 

Un controllo finale (checksum) se¬ 
gnala eventuali errori nei Data. 

In seguito, ricordarsi sempre di cari¬ 
care il programma con i Data prima 
di Super Assembler. 

Cdit 

Dopo il Run appare il menu con 9 
opzioni possibili. 

Premendo 1 si va in fase di Edit per 
modificare il programma Assembly 
presente. Con Shift-I invece si va in 
Edit cancellando il programma per 
cominciare ad inserirne uno nuovo. 


In Edit è sempre presente sulla sini¬ 
stra il simbolo >, che segnala la riga 
nella quale ci si trova. 

Il programma Assembly va intro¬ 
dotto tenendo conto di alcune rego¬ 
le riguardanti la sua struttura. 

Ogni linea di programma è suddivi¬ 
sa in tre zone: campo operazione, 
campo indirizzo e campo etichetta. 
La prima linea del programma vuo¬ 
le necessariamente la parola Prog 
nel campo etichetta. 

Prima del programma vero e pro¬ 
prio però possono comparire una o 
più definizioni di Macro, si vedrà 
dopo cosa sono. Per ora basta sape¬ 
re che una definizione di Macro è un 


Listato 1. Il programma principale. 


10 rem ******************************** 

15 REM * * 

20 REM * SUPER-ASSEMBLER PER C.64 * 

25 REM *- * 

30 REM * GIANLUCA PUCCIO * 

35 REM * * 

40 REM ******************************** 

50 XI=75:XL=300:MX=25:MP=4:EX=INT(XL/10): 
K$ (0)="<":K$(1)=">":LA=29 
60 GOSUB10000 

62 DEFFNAZ(X)=C$>="A"ANDC$< = "Z" 

64 DEFFNNUM(X)=C$>="0"ANDC$<="9" 

66 DEFFNALFA(X)=FNAZ(X)ORFNNUM(X) 

68 DEFFNESA(X)=FNNUM(X)ORC$>="A"ANDC$<="F 

tl 

70 DIMAS(XL» 2),A%(XL),I%(XL),P(XL+1) ,I$(X 
I),ER$(30) 

74 K=XI-56 

75 DIMMP%(K),MP$(K,MP),MI %(K),MF%(K),PA$( 
MP),ET$(EX),ET%(EX) 

80 GOSUB20000 
90 SP$=" 

":L=0:NL=0:RU=-1 

95 REM ******************************** 

97 REM MENU' 

99 REM ******************************** 

100 MO=0:PRINTCHRS(147):POKE53280,9 : PORE5 
3281 ,9 :POKE198,0 

110 PRINTTAB(8)CHRS(144)"1 : "CHR$(5)"E 


DIT" 

120 PRINTTAB(88)CHR$(144)"2 : "CHR$(5)" 

ASSEMBLA + SAVE P.SORG." 

130 PRINTTAB(88)CHRS(5)"3 : "CHRS(144)" 

SAVE PROGRAMMA SORGENTE" 

140 PRINTTAB(48)CHR$(5)"4 : "CHRS(144)" 

LOAD PROGRAMMA SORGENTE" 

150 PRINTTAB(48)CHRS(5)"5 : "CHR${144)" 

SAVE CODICE OGGETTO" 

160 PRINTTAB(48)CHRS (5)"6 : "CHRS(144)" 

LOAD CODICE OGGETTO" 

170 PRINTTAB(88)CHR$(144)"7 : "CHR$(5)" 

RUN PROGRAMMA" 

180 PRINTTAB(88)CHRS(144)"8 : "CHR$(5)" 

DISASSEMBLA" 

190 PRINTTAB(88)CHRS(144)"9 : "CHRS(5)" 

MEMORY" 

200 GETAS:IFA$=""THEN200 
210 A=VAL(A$):PRINTCHRS(147); 

220 IFAS="!"THENL=0:NL=0:A=1 

230 IFA = 1THENMO = l:POKE53280, 1 1 :POKE53281 , 

11 : GOTO 1000 

240 ONAGOTO,3000,7000,71 00, 8000,81 00,8500 

,9000,9500 

250 : 

300 GOTO100 

495 REM ******************************* 

497 REM ERRORI 

499 REM ******************************* 


500 IFMO< >1THEN600 

510 B$(1)="":B$(2)="":OPENl,3:F0RK=lT02 
520 F0RI=1T039:GET#1,C$:B$(K)=B$(K)+C$ 

530 NEXT:PRINT:NEXT:CLOSEl:PRINTCHRS( 1 45) 


\ 
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Seguilo listalo I. 

CHR$(145 ); 

540 PRINT" "SP$:PRINT" "SP$:PRINTCHR8(145 
)CHR$(145); 

550 PRINTCHR?(156)TAB(ER%)" :PRINT" "ER$ 

(ER) 

560 POKEl98,0 :WAITl98,1 :POKEl98,0:PRINTCH 
R$(145)CHR$(145)CHR$(1 55)B$ (1) 

570 PRINTB$(2):PRINTCHR$(145)CHR$(145)CHR 
$ (145)CHR$(29);:ER=0:GOTOl080 
590 : 

600 PRINTTAB(41)CHR$(156)ER$(ER)CHRS(5):E 
R=0:IFMO=OTHENGOSUB7630: GOTO!00 
610 : 

620 PRINTTAB(82)"PREMI UN TASTO PER ANDAR 
E IN EDIT":WAITl98,1 :IFMO = 2THEN680 
630 A$=AA$:GOSUB7110:IFERTHENER=0:GOTOl00 
680 L=L-1 :MO=l:POKE53280, 1 1 :POKE53281 ,1 1 : 
PRINTCHR5(147);:GOTOl000 
690 : 

700 K=L:L=NL:NEXTL:L=K: GOTO500 

995 REM ******************************* 

997 REM EDIT 

999 REM ******************************* 

1000 GOSUBl400 

1005 PRINTCHR?(153)">"CHR$(155); 

1010 POKEl98,0:WAITl98,1 :SH=PEEK(653):P=P 
EEK(197) 

1020 IFP=57THENMO=0:GOTOl00 

1030 IFP=7THENGETA$:FL=(A$=CHR$(17)ANDIXN 

L):GOTOl110 

1040 IFP= 33ANDSHTHENGETA$:GOTOl170 
1050 IFP=18ANDSHTHENGETA$:GOTOl230 
1060 C$=CHR$ (PEEK(631) ) :IFNOTFNAZ(X)ANDCS 


<>"."ANDC$< >"$"THEN101 0 
1065 : 

1070 L=L+1:IFL>XLTHENER=8:ER%=0:GOT0500 
1075 IFL>NLTHENNL=L 

1080 PRINTSP$ : PRINTCHR$ (.145) CHRS (29) ;:GOS 
UB60000:GOSUBl 500 :IFERTHEN500 
1090 GOSUBl800:IFERTHEN500 
1095 GOSUB2000:IFERTHEN500 
1097 PRINTCHRS(145)" ":GOTOl005 
1100 : 

1110 B$=CHR$(157)+" "+A$(L+l,0)+" "+A$(L+ 

1 , 1 ) 

1115 IFFLTHENL=L+1:PRINTB$;:POKE212,0 :PRI 
NTTAB(LA)":"A$(L,2):GOTO1005 
1120 IFA$=CHR$(145)ANDL>0THEN1140 
1130 GOTOl010 

1140 L=L-1 :IFPEEK(214)THENPRINTCHRS(1 57)" 
"CHR5(157)CHR$(145);:GOTO1005 
1150 SYS40779:PRINTSP$:I=L+1:PRINT" "CHR$ 
(145)CHRS(157)" "A$(I,0)" "A$(I,1); 

1160 POKE212,0:PRINTTAB(LA)":"A$(I,2):PRI 
NTCHR$(14 5); :GOTOl005 
1170 IFL=NLTHENl010 
1175 L=L+1:NL=NL+1 

1180 FORI=NLTOL+1STEP-1 :FORJ=0TO2:A$(I,J) 

=A$(1-1,J):NEXTJ,I 

1185 IFPEEK(214)<24THENSYS40779 

1190 PRINTSP$:PRINT" "CHR$(145); 

1200 GOSUB60000:PRINTCHR$(145)" ":GOTO100 
5 

1230 IFL=NLTHENl010 
1240 NL=NL-1 

1250 IFL=NLANDL=OTHENPRINTSP$:PRINTCHR?(1 
45 ); : GOTO100 5 


gruppo di linee, la prima delle quali 
vuole la parola Macro nel campo 
etichetta. 

Adesso ci vuole un esempio per 
chiarire un po’ le cose: 

.★= 828 :PROG 

DEC $FB :I.OOP 

BNE LOOP 
RTS 

Dopo aver digitato Shift-I da menu, 
introdurre (tra un momento 

si vedrà cosa significa). Dopo il ter¬ 
zo carattere, il cursore (finto) salta 
uno spazio e si posiziona all’inizio 
del campo indirizzo, dove bisogna 
battere 828. A questo punto occorre 
inserire un’etichetta (Prog); per far¬ 


lo basta premere il tasto dei due 
punti (:), ed il cursore salterà sulla 
destra dello schermo, nel campo eti¬ 
chetta. Digitare Prog e Return. 

Se non è stato commesso alcun erro¬ 
re la linea viene accettata, ed il sim¬ 
bolo > di inizio riga scende di un 
posto. Si prosegue quindi come ap¬ 
pena visto fino all’ultima istruzione. 
Non tutti i caratteri possono essere 
visualizzati in una linea; hanno ef¬ 
fetto solamente quelli il cui simbolo 
compare sulla parte supcriore del 
tasto. 

E tra questi sono esclusi quelli che 
svolgono una funzione, come Clr, 
Crsr, ecc. Fanno eccezione i tasti 
Del e Return, che agiscono come al 


solito. 

Come si vede dall’esempio, i numeri 
possono essere espressi in notazione 
decimale o esadecimale, in questo 
caso preceduti dal simbolo $. 

Se si commette qualche errore nel 
digitare una linea, appare un mes¬ 
saggio esplicativo sul tipo di errore 
commesso e l’indicazione della posi¬ 
zione dello stesso nella linea. 

Premendo un tasto qualsiasi il 
messaggio sparisce, la linea viene 
cancellata ed il cursore è posto al 
suo inizio, pronto per la correzione. 
Quando si preme Return per memo¬ 
rizzare una linea, il cursore sparisce 
e l’unica indicazione della nostra 
posizione sullo schermo è data dal 
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simbolo >. In questa situazione 
(cioè con il cursore assente) sono 
possibili varie funzioni. Intanto so¬ 
no abilitati i comandi di Crsr Up e 
Crsr Down che permettono di posi¬ 
zionarsi su una diversa riga di scher¬ 
mo. 

Sliift-D elimina la linea alla quale ci 
si trova. 

Shift-I permette l’inserimento di 
una linea tra quella che precede e 
quella alla quale ci si trova. 

Infine con la freccia a sinistra (—) si 
torna al menu. 

Questi comandi hanno reso necessa¬ 
rio l’uso di routine in linguaggio 
macchina, che implementano lo 
scroti verticale in entrambe le dire¬ 


zioni, e partendo da una linea qual¬ 
siasi (vedi cancellazione ed inseri¬ 
mento linee). 

Direttive 

Una direttiva è un comando dato 
all’assemblatore, e va inserita nel 
programma come se fosse un’istru¬ 
zione. 

Nell’esempio di programma visto 
prima era presente la direttiva 
Con essa si dice all’assem¬ 
blatore dove dovrà essere memoriz¬ 
zato il programma; nell’esempio: da 
828 in poi. Questa direttiva, se pre- 
septe, deve trovarsi alla prima linea 
del programma. Nel caso non com¬ 


paia, l’indirizzo di partenza è fissato 
a 49152 (SCOOO in esadecimale). 

La seconda direttiva è .AD (ad- 
dress) e permette di assegnare un’e¬ 
tichetta ad un indirizzo in memoria. 
Dichiarando, per esempio, all’ini¬ 
zio: 

.AD $FFE4 :GET 

Si può digitare GET al posto di 
SFFE4 ogni volta che se ne ha biso¬ 
gno. 

L’indirizzo della .AD può anche es¬ 
sere una locazione in Zero Page. 

La terza direttiva è .GO e indica il 
punto da cui far partire l’esecuzione 
mediante Run Programma da me- 


Seguìto listato I. 

1260 IFLONLTHENl 270 

1262 IFPEEK(214)THENPRINTCHR$(157)SP$CHR$ 
(145):PRINTCHR$(145);:L=L-1:GOTOl005 
1264 PRINTSP$:PRINTCHR8(145);:GOTOl005 
1270 FORI=L+1TONL:FORJ=0TO2:A$(I,J)=A$(1+ 
1,J):NEXTJ,I 

1280 IFPEEK(214)=24THENPRINTCHR$(157)SP$C 
HR$(145) :PRINTCHR$(145);:L=L-1: GOTO 1005 
1285 SYS40704:K=24-PEEK(214))FÒRI=1TOK:PR 
INTTAB(40); :NEXT:PRINTCHR$(157)SP$; 

1290 FORI=1TOK:PRINTCHR$(145)f:NEXT:PRINT 
:PRINTCHR$(145); :POKE241 , 135:G0T01005 
1395 REM ****************************** 
1397 REM PRESENTAZIONE EDIT 

1399 REM ****************************** 

1 400 PRINTCHR5(155) ; :IFL=0THENl420 
1 405 K=L-10 :IFK< = 0THENK=1 

1410 FORI=KTOL:PRINT" "A$(I,0)" "A$(I,1); 
:POKE212,0:PRINTTAB(LA)":"A$(1,2) jNEXT 
1420 1=0 

1430 IFL>=NLORI>12THEN1460 

1440 1=1+1:L=L+1:PRINT" "A$(L,0)" "A$(L,1 

);tPOKE212,0 

1450 PRINTTAB(LA)"A$(L,2):GOTOl430 
1 460 IFITHENFORJ = lTOI:L=L-1 :PRINTCHR$(14 5 
) ; :NEXT 
1470 RETURN 

1495 REM ****************************** 
1497 REM VERIFICA OPERANDO (EDIT) 

1499 REM ****************************** 

1500 C$=LEFT$(A$(L,0),1) 

1510 IFFNAZ(X)THENl700 
1520 IFC$="."THENl570 

1 530 IFC$< >"$"THENER=1:ER% = 1: RETURN 
1 540 F0RI = 2T03:C$=MID$(A$(L,0) ,1,1) 

1 550 IFNOTFNESA(X)THENER=1:ER% = I: 1 = 3:NEXT 


: RETURN 

1560 NEXT:RETURN 
1 565 : 

1570 A$=MID$(A$(L,0),2) 

1580 IFA$="*="THEN1630 
1590 IFA$="AD"ORA$="AR"THENl620 
1600 IFA$="GO"ORA$="NL"THENRETURN 
1610 ER=2:ER%=2:RETURN 

1620 IFA$(L,2)=""THENER=17:ER%=LA+1:RETUR 
N 

1 630 A$=A$(L,1) :IFA$ = ""THENER=16 :ER% = 5: RE 
TURN 

1640 1=1:C$=LEFT$(A$,1):GOSUB2510 
1650 IFC$<>""THENER=1:ER%=4+I 
1660 RETURN 
1 690 : 

1700 A$=MID$(A$(L,0),2) 

1710 C$=LEFT$(A$,1) :IFNOTFNAZ(X)THENER=1 : 
ER%=2:RETURN 

1720 C$=MID$(A$,2):IFNOTFNAZ(X)THENER=1:E 
R% = 3 

1730 RETURN 

1795 REM ****************************** 
1797 REM VERIFICA ETICHETTA (EDIT) 

1799 REM ****************************** 

1800 A$=A$(L,2):IFA$="MACRO"THENl900 
1810 IFA$=""THENRETURN 

1815 C$ = LEFT$ (A$,1) 

1820 IFNOTFNAZ(X)THENER=1:ER%=LA+1: RETURN 
1830 A$=MID$(A$,2):IFA$=""THENRETURN 
1840 FORI=1TOLEN(A$):C$=MID$(A$,I,1) 

1 850 IFNOTFNALFA(X)THENER = 1:ER%=LA+1+1: 1 = 
LEN(A$) 

1860 NEXT:RETURN 
1 890 : 

1 900 A$=A$(L,1) : 1=0:K=0:C$=LEFT$(A$,1) 
1910 IFC$=""THENRETURN 

1 920 1 = 1 + 1 :K = K+1:IFK>MPTHENER=10:ER% = 4+I: 
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Seguito listato I. 

RETURN 

1930 C$=MID$(A$,I,1):IFNOTFNAZ(X)THENl970 
1940 1=1+1:C6=MID$(A$,1,1) 

1950 IFFNALFA(X)THENl940 

1960 IFC$=";"ORC$=""THENl 91 0 

1970 ER=1:ER% = 4+I: RETURN 

1995 REM ****************************** 

1997 REM VERIFICA INDIRIZZO (EDIT) 

1999 REM ****************************** 

2000 IFA$(L,2)="MACRO"THENRETURN 

2005 1=0:P=0:A$=A$(L, 1 ):IFA$=""THENRETURN 
2010 1 = 1 + 1:P=P+1:IFP>MPTHENER=10 :ER% = 4+I: 
RETURN 

2020 IFP02THEN2050 

2030 FORK=0TO55:IFA$(L,0)=1$(K)THENK=55:N 
EXT:1=1-1 :GOTO2300 
2040 NEXT 

2050 C$=MID$(A$,1,1) :IFC$<>"#"THEN2120 
2060 1=1+1:C$=MID$(A$,1,1) 

2070 IFC$ = "<"ORC$ = ">"THENI = I +1:C$=MID$(A$ 
,1,1) : GOTO2100 

2080 GOSUB2500:IFERTHENRETURN 
2090 GOTO2280 

2100 GOSUB2700:IFERTHENRETURN 
2110 GOTO2280 

2120 IFC$ = "'"THENl = 1 + 2:GOTO2270 
2130 IFC$<>"("THEN2200 
2140 1=1+1:C$=MID$(A$,1,1) 

2150 GOSUB2500:IFERTHENRETURN 

2160 IFMID$ (A$,1,3)=",X)"THENI = I+3:G0T022 
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2170 IFC$<>")"THEN2300 

2180 1=1+1:IFMID$(A$,1,2)=",Y"THENI=I+2 
2190 GOTO2270 

2200 IFC$< >"<"ANDC$< >">"THEN2240 
2210 1=1+1:C$=MID$(A$,1,1) 

2220 GOSUB2520:IFERTHENRETURN 


2230 GOTO2280 

2240 GOSUB2500:IFERTHENRETURN 
2250 C$=MID$(A$,1,2) 

2260 IFC$=",X"ORC$=",Y"THENI=I+2 
2270 C$=MID$(A$,I,1) 

2280 IFC$=""THENRETURN 
2290 IFC$=";"THEN2010 
2300 ER=1:ER%=4+I: RETURN 

2497 REM ****************************** 

2498 REM VERIFICA DATO (EDIT) 

2499 REM ****************************** 

2500 IFFNAZ(X)THEN2580 

2510 IFC $ = "$"TH ENI = I +1:C$=MID$(A$,1,1 ) :GO 
TO2550 

2520 K=I:IFNOTFNNUM(X)THEN261 0 

2530 1=1+1:C$=MID$(A$,I,1):IFFNNUM(X)THEN 

2530 

2535 IFVAL(MID$(A$,K))>65535THEN2620 
2540 RETURN 

2550 K=I:IFNOTFNESA(X)THEN261 0 

2560 1=1+1:C$=MID$(A$,1,1):IFFNESA(X)THEN 

2560 

2565 IFLEN(MID$(A$,K,I-K))>4THEN2620 
2570 RETURN 

2580 1=1+1:C$=MID$(A$,1,1):IFFNALFA(X)THE 
N2580 

2590 IFC$="+"ORC$="-"THENl=1+1:C$=MID$(A$ 
,1,1):GOTO2520 
2600 RETURN 

2610 ER=1 :ER% = 4 + I -.RETURN 
2620 ER=18:ER%=4+K:RETURN 

2697 REM ****************************** 

2698 REM VERIFICA LABEL (EDIT) 

2699 REM ****************************** 

2700 IFNOTFNAZ(X)THENER=1:ER% = 4+I: RETURN 
2710 1=1+1:C$=MID$(A$,I,1):IFFNALFA(X)THE 
N271 0 

2720 RETURN 


nu. Se assente, quando scegliamo 
l’opzione Run sarà richiesta una lo¬ 
cazione di partenza. 

La quarta direttiva è .AR (array) ed 
è l’analogo di una Dim del BASIC. 
Esempio: 

.AR 50 :VET 

definisce un vettore di 50 elementi, 
richiamabili usando Vet, Vet-H, ... 
Vet+49 oppure utilizzando i registri 
X e Y, esempio Sta Vet,Y. 

La quinta direttiva è .NL ed è una 
direttiva nulla. La sua utilità c legata 
soprattutto alle Macro (vedi). 

Infine un’ulteriore possibilità, quel¬ 
la di inserire dei dati all’interno del 
programma, analogamente ad un’i¬ 
struzione Data del BASIC. È suffi¬ 


ciente introdurre il valore esadeci- 
male, ovviamente preceduto da $, 
nel campo operazione della linea. 
Esempio: 

LDA LOC :PROG 
STA $400 
LDA LOC-H 
STA $D800 
RTS 

$40 :LOC 

$07 

Particolarità del linguaggio 

Ci sono alcuni aspetti formali del 
linguaggio che non sono ancora sta¬ 
ti visti. 

E permessa una forma particolare 


dclPindirizzamento immediato: un 
carattere preceduto dall’apice (’) 
viene interpretato come il codice 
ASCII corrispondente. Quindi scri¬ 
vere Lda ’A è lo stesso che scrivere 
Lda # 65. 

Per quanto riguarda l’uso delle eti¬ 
chette, è possibile fare riferimento 
alla sola parte alta o a quella bassa 
dell’indirizzo corrispondente. La 
sintassi è, rispettivamente, > Label e 
< Label. 

Per esempio, se è stata assegnata l’e¬ 
tichetta Get all’indirizzo $FFE4, 
scrivere > Get oppure $FFè uguale, 
e lo stesso vale per <Get o $E4. 

Ci sono casi nei quali questa possibi¬ 
lità è quasi indispensabile, per esem¬ 
pio quando ci si deve riferire all’in- 
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dirizzo di un’etichetta che sarà defi¬ 
nita più avanti. 

Infine la possibilità di specificare 
quante linee saltare (avanti o indie¬ 
tro) in un’istruzione di Branch. Il 
numero di linee da saltare, precedu¬ 
to da < se indietro e da > se avanti, 
va inserito nel campo indirizzo al 
posto della usuale etichetta. L’istru¬ 
zione Beq >5 salta 5 linee avanti se 
la condizione è verificata, mentre 
Bcc < 2 salta 2 linee indietro se la 
Bcc ha esito vero. 

L’assemblatore stesso usa questa 
sintassi durante la fase di espansione 
Macro, trasformando i salti per eti¬ 
chetta in salti relativi. 


Parametri 

Prima di iniziare a parlare di Ma¬ 
cro, bisogna affrontare un altro di¬ 
scorso: quello dei parametri formati 
e dei parametri effettivi. 

In BASIC esiste un’istruzione, la 
Def FN, che permette all’utente di 
definire una funzione. Se, per esem¬ 
pio, si vuole una funzione che rad¬ 
doppi un numero dato, si scriverà: 

100 DEFFND(X)=2*X 

È importante notare che la X usata 
in questa definizione non ha niente a 
che fare con la variabile X, la quale 
può comparire in qualsiasi altra li¬ 


nea per altri scopi. La X dell’esem¬ 
pio è un parametro formate che de¬ 
scrive come sarà trasformato il valo¬ 
re introdotto. La linea: 

130 X=35:H=FND(6):PRINTX 

stamperà 35, lasciando inalterato il 
valore di X anche dopo la chiamata 
della funzione Fnd. Il valore di H 
sarà 12 perché 6 è il parametro effet¬ 
tivo che viene passato alla funzione, 
che svolge 2*-6 (=12) e non 2*-X. 

Macro 

Scrivendo un programma As- 
sembly, capita di dover inserire va- 


Seguito listato 1. 

2995 REM ****************************** 
2997 REM ASSEMBLA (MACRO) 

2999 REM ****************************** 

3000 IFNL=0THENPRINTCHR$(147):ER=6:GOTO50 
0 

3003 AA$ = "":PRINTCHR?(147)CHR$ (5); 

3005 PRINTTAB(82); : INPUT"NOME DEL PROGRAM 
MA ";AA$:IFLEN(AA$)>15THEN3003 
3007 IFAA$=""THEN100 

3010 MO=2:IT=55:L=1:PRINTCHR$(144)TAB(120 
)"ESAME MACRO" 

3020 IFA$(L,2)="MACRO"THEN30 50 
3030 IFA$(L,2)="PROG"THEN5000 
3040 ER=4:GOTO500 

3050 IT=IT+1:IFIT>XITHENER=5:GOTO500 
3052 FORI=0TOIT-1 :IFA$(L,0)=1$(I)THENER=9 
3054 NEXT:IFERTHEN500 
3060 I$(IT)=A$(L,0) 

3070 M=IT-56:MP%(M)=0 

3080 REM MEM.NOME PAR.FORM.E LORO NUM. 

3090 A$ = A$(L,l):K=0 

3100 K=K+1: 1 = 0:IFA$ = ""THEN3150 

3110 1=1+1:C$=MID$(A$,1,1) 

3120 IFC$<>";"ANDC $<>"" THEN3110 
3130 MP$(M,K)=LEFT$(A$,I-1 ) 

3140 A$=MID$(A$,1+1):G0T03100 

3150 MP%(M)=K-1 

3160 ML% = 0: MI %(M)=L+1 

3170 REM CICLO 2 

3180 L=L+1:ML%=ML%+1 
3190 IFL>NLTHENER=6:GOTO500 
3200 FL=0 

3210 IFA$(L, 2)="MACRO"ORA$(L,2)="PROG"THE 
N3800 

3220 IFA$(L,0)=".NL"THENFL=A$(L,2)<>"":GO 
T03800 

3230 IFML%>MXTHENER= 13 : GOTO500 
3240 A$=A$(L,0):C$=LEFT$(A$,1) 

3250 IFNOTFNAZ(X)THENER=11:GOTO500 


3260 FL=0: FORI=0TOIT-1 

3270 IFA$=I$(I)THENFL=1:K=I:I=IT 

3280 NEXT:IFFL=0THENER=3: GOTO500 

3290 IFK< 56THENA%(L)=K: GOTO3180 

3294 GOSUB3300:IFERTHEN500 

3296 L=L+K:NL=NL+K:ML%=ML%+K: GOTO3180 

3298 REM ESPANSIONE MACRO 

3300 MC=K-56 

331 0 IFNL+MFl (MC) -MI% (MC) >XLTHENER=8 : RETI! 
RN 

3320 REM MEM.NOME PAR.ATT. E LORO NUM. 
3330 A$=A$(L,l):K=0 
3340 K=K+1:I=0:IFA$=""THEN3390 
3350 1=1+1:C$=MID$(A$,1,1) 

3360 IFC$<>";"ANDC$<>""THEN3350 
3370 PA$(K)=LEFT$(A$,I-1) 

3380 A$=MID$(A$,I+1):GOTO3340 
3390 IFK-1<>MP%(MC)THENER=12:RETURN 
3400 : 

3410 K=MF%(MC)-MI%(MC) 

3420 IFKTHENFORI=NLTOL+lSTEP-1 :A%(I+K)- 
(I):FORJ=0TO2:A$(I+K,J)=A$(I,J):NEXTJ,I 
3430 : 

3440 FORI=LTOL+K:ML=MI%(MC)+1-L 

3450 A$(I,0)=A$(ML,0):A$(I,1)=A$(ML,1):IF 

I>LTHENA$(1,2)="" 

3460 A%(I)=A%(ML) 

3470 IFMPl(MC)=0THEN3510 
3480 FORW=lTOMP%(MC) 

3490 IFA$(ML,1)=MP$(MC,W)THENA$(1,1)=PA$( 
W) 

3500 NEXTW 
3510 NEXTI 
3520 RETURN 
3790 : 

3800 MF%(M)=MI%(M)+ML%-2 : REM USCITA C.2 
3810 IFML%< 2THENER=7: GOTO500 
3820 FORI=MI%(M)TOMF%(M) 

3830 IFA$(I,1)=""THEN3870 

3840 FORW=MI%(M)TOMF%(M)-FL 

3850 IFA$(1,1)=A$(W,2)THENA$(1,1)=K$((W<I 
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5070 IFA$=I$(I)THENFL=1:K=I:I=IT 


5080 NEXT:IFFL=0THENER=3:GOTO500 

)+l)+MIDS(STRS(I-W),2):W=MF%(M)-FL 


5090 IFK<56THENA%(L)=K:GOT05120 

3860 NEXTW 


5100 GOSUB3300:IFERTHEN500 

3870 NEXTX 


5110 L=L+K:NL=NL+K 

3880 FORW=MI%(M)T0MF%(M)-FL:A$(W,2)="":NE 


5120 L=L+1 : IFL< =NLTHEN5010 

XT 


5125 MO=3:A$=AA$ : PRINTCHR$(155)"REGISTRO 

J890 L=L-(A$ ( L,0 ) = " .NL"ANDA$(L,2)<>"PR0G" 

):GOTO3020 

3995 REM ****************************** 


: " A$ 


5130 GOSUB7010:IFERTHENER=0:GOTOl00 


5140 PRINTCHRS(144)"CONVERS. ESA>DEC E ME 

3997 REM CONV. ESA>DEC (IN A$) 


MORIZZAZ. LABEL" 

3999 REM ****************************** 


5150 FORL=IPTONL 

4000 J=1:IFZ$<>"$"THENJ=2 


5160 A$ = A$(L,1 ): Z$=LEFT$(A$,1 ) 

4010 J=J+1:C$=MID$(A$,J,1) 


5170 IFZ$<>"$"ANDMID$(A$,2,l ) <>"$"THEN520 

4020 IFNOTFNESA(X)THENER = 1 : RETURN 

4030 DE=0 


0 

5180 GOSUB4000:IFERTHEN700 

4040 DE=16*DE+ASC(C$)-48+7*(C$>"9") 


5190 A$(L,1)=A$ 

4050 J=J+1:C$=MID$(A$,J,1) 


5200 A$=A$(L/2):REM MEM. LABEL 

4060 IFFNESA(X)THEN4040 


5210 IFA$ = "" THEN5260 

4070 A$=MID$(STR$(DE),2)+MID$(A$,J) 


5220 FORJ = 1TOEN : IFA$=ET$ ( J ) THENER=14 

4080 IFZ$< >" $"THENA$=Z$+A$ 


5230 NEXT:IFERTHEN700 

4090 RETURN 


5240 EN=EN+1 : IFEN>EXTHENER=15 : GOTO700 

4495 REM ****************************** 


5250 ET$(EN)=A$ : ET%(EN)=L 

4497 REM CONVERSIONE DEOESA 


5260 NEXTL 

4499 REM ****************************** 


5265 : 

4500 ES$=" " 


5270 PRINT"TROVA TIPO INDIRIZZAMENTO" 

4510 FORW = lT02:C=DE-INT(DE/1 6 ) *16:ES$=CHR 


5280' P(IP)=49152:RU=-1 

$ (C+48-7* (09) ) +ES$ 


5290 FORL = IPTONL : A$ =A$(L,0) :B$=A$(L,l) 

4520 DE=INT(DE/1 6) :NEXT:RETURN 


5300 IFLEFT$(A$,1) < >"."THEN5350 

4995 REM ****************************** 


5310 IFA$=".*="THENP(IP)=VAL(AS(L,l)):P(L 

4997 REM ASSEMBLA (PROG) 


+ 1)=P(IP): GOTO5720 

4999 REM ****************************** 


5320 IFA$=".AD"ORA$=".NL"THENP(L+l)=P(L): 

5000 IP=L:EN=0:ET$(1) = "": PRINT"ESPANSIONE 


GOTO5720 

MACRO NEL PROGRAMMA" 


5330 IFA$=".AR"THENP(L+l )= P(L)+VAL (B$ ) :GO 

5010 A$=A$(L,0):C$=LEFT$(A$, 1 ) 


TO5720 

5020 IFFNAZ(X)THEN5060 


5340 IFA$=".GO"THENRU=P(L):P(L+1)=RU:GOTO 

5030 B$=RIGHT$ (A$ , 2) 

5040 A%(L)=(B$="*=")+2*(B$="AD")+3*(B$="A 


5720 

5350 IFB$=""THENI%(L)=0:P(L+1)=P(L)+1:GOT 

R")+4*(B$="GO" ) +5*(B$="NL" ) +7*(C$="$") 

5050 G0T05120 


05720 

5360 1=1:C$=LEFT$(B$,l) : IFC$="("THENI=2 

5060 FL=0 : FORI = 0TOIT 


5370 IFC$ = " #"THENI = 2:C$=MID$(B$,2,l ) 


rie volte determinate sequenze di 
istruzioni, quali l’incremento di un 
byte con riporto nel byte successivo, 
l'azzeramento di un byte, ecc. 
Sarebbe comodo poter definire una 
sola volta, all’inizio del programma, 
una certa sequenza, usandola poi 
nel programma principale semplice- 
mente inserendo il suo nome, even¬ 
tualmente passando anche dei para¬ 
metri. Tutto ciò è reso possibile dal¬ 
le Macro-istruzioni. Come esempio, 
definiamo una Macro che azzera 
una cella di memoria. 

AZZ X :MACRO 
LDA #0 


STA X 

Analogamente al Def FN del BA¬ 
SIC, anche in questo caso la X è 
solamente un parametro formale, 
che descrive gli effetti di una succes¬ 
siva chiamata della Macro AZZ. 
Volendo azzerare la locazione $FB 
basterà scrivere AZZ $FB. 

Ogni volta che l’assemblatore in¬ 
contrerà l’istruzione AZZ param. 
inserirà al posto di questa le due 
istruzioni Lda #()e Sta param. 

Il parametro effettivo può compari¬ 
re sotto forma di uno dei possibili 
modi di indirizzamento compatibili 
con l’istruzione Sta. Quindi AZZ 46 
verrà sostituito con LDA #0 e 


STA 46. Ma potrebbe essere AZZ 
$C()()(),X oppure AZZ (45), Y ecc. 
La prima linea di ogni definizione di 
Macro deve contenere Macro nel 
campo etichetta. La definizione c 
completa se nella linea successiva c’è 
Macro o Prog nel campo etichetta, 
oppure se inserisce la direttiva .NL 
come nel seguente esempio: 

PRT CAR :MACRO 

LDA CAR 

CMP ’Z 

BPL FINE 

JSR $FFD2 

.NL :FINE 

La funzione è: confrontare il valore 
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introdotto con il codice ASCII di Z; 
se superiore non si fa nulla, altri¬ 
menti si stampa il relativo carattere 
su video. 

Per stampare una G basterà digita¬ 
re: Prt ’G. 

La direttiva .NL era necessaria in 
quanto l’istruzione Bpl può saltare 
direttamente all’esterno della defini¬ 
zione. Per questo durante la fase di 
espansione Macro l’assemblatore 
sostituirà Bpl Fine con Bpl >2. 
Definiamo una Macro che incre¬ 
menta l’accumulatore, una istruzio¬ 
ne che il 6510 non ha: 


INA :MACRO 

CLC 


ADC #1 

Non è presente alcun parametro, 
quindi la chiamata Ina sarà sempli¬ 
cemente sostituita dalle due istru¬ 
zioni definite. 

La prossima Macro scambia i valori 
tra due locazioni: 

SCM M;N :MACRO 

LDA M 

PHA 

LDA N 

STA M 

PLA 

STA N 

È possibile che all’interno di una 
Macro se ne usi un’altra, sempre che 


quest’ultima sia già stata definita. 
L’ordinamento in modo crescente di 
due celle di memoria mostra proprio 
questo: 

ORD I;J :MACRO 
LDA J 
CMP I 
BPL EXIT 
SCM I;J 

.NL :EXIT 

Ecco ora un programma che scam¬ 
bia tra loro la pagina video e quella 
del colore, sfruttando la Macro 
SCM: 

LDY #0 :PROG 

SCM $400,Y;$D800,Y :LOOP 


Seguito listato 1. 

5380 IFC$="<"ORC$=">"THENI=1+1 
5390 C$=MID$(B$,I,1):IFFNNUM(X)ORC$="'"TH 
ENID=VAL(MID$(B$,I)):GOTO5490 
5400 K=I 

5410 1=1+1:C$=MID$(B$,I,1):IFFNALFA(X)THE 
N541 0 

5420 Z$=MID$(B$,K,I-K) 

5430 FL=0:FORJ = 1TOEN:IFZ$=ET$(J)THENFL=J: 
J=EN 

5440 NEXT:IFFL = 0THENER=19:GOTO700 

5450 K=ET%(FL):IFA$(K,0)<>".AD"THENID=100 

0 :GOTO5490 

5460 ID=VAL(A$(K,1)) 

5470 XFC$ = " + "THENID = ID +VAL(MID$(B$,1 + 1)) 
5480 IFC$ = "-"THENID = ID-VAL(MID$(B$,I-1) 
5490 1 = 1 :C$=LEFT$(B$,l) :IFC$<>"#"THEN5540 
5500 A$(L,1)=MID$(B$,2) :X%(L)=1 :P(L+l)=P( 
L) +2 

5510 C$=LEFT$(A$(L,1),1):IFC$="<"ORCS=">" 
THEN5720 

5520 IFID>255THENER=20:GOTO700 

5530 GOTO5720 

5540 IFC$<>"'"THEN5570 

5550 C$=MID$(B$,2):IFC$=""THENC$=" " 

5560 A$(L,1)=MID$(STR$(ASC(C$)),2):I%(L)= 

1 :P(L+l ) =P(L)+2 : GOTO5720 

5570 IFNOTFNALFA(X)THEN5650 

5580 FL=FNAZ(X)ANDB$=Z$ANDLEFT$(A$,1)="B" 

ANDA$ < > " BIT" AND A$ < > " BRK " 

5590 IFFLTHENI%(L)=10 :P(L+l)=P(L)+2 :GOT05 
720 

5600 J = 2:P(L+l)=P(L)+2:IFID>255THENJ = 5:P( 
L+l)=P(L)+3 

5610 C$=RIGHT$(B$,2):K=LEN(B$) 

5620 IFC$ = ",X"THENJ=J+l:A$(L,l)=LEFT$(B$, 
K-2) 

5630 IFC$=",Y"THENJ=J+2:A$(L,l)=LEFT$ (B$ , 
K-2) 

5640 1%(L)=J: GOTO5720 


5650 IFC$ = "<"ORC$ = ">"THENI%(L)=10:P(L+l f = 
P(L)+2 : GOTO5720 

5660 B$=MID$(B$,2):K=LEN(B$):C$=RIGHT$(B$ 
,3) 

5670 IFC$=",X)"THENI%(L)=8:GOTO5700 

5680 ÌFC$="),Y"THENI%(L)=9:GOTO5700 

5690 A$(L,1)=LEFT$(B$,K-1) :I%(L)=11:P(L+1 

)=P(L)+3 : GOTO5720 

5700 IFID>255THENER=20: GOTO700 

5710 A$(L,1)=LEFT$ (B$,K-3) :P(L+l)=P(L)+2 

5720 Z$=LEFT$(A$,l):IFZ$="$"THENGOSUB4000 

:GOTO5770 

5730 IS=A%(L):IFIS<0THEN5770 
5740 GOSUB63500 : FORI=0TOI%(L): READA:NEXT 
5750 IFA = 0ANDA$O"BRK"THENER=21 :GOTO700 
5760 A$=MID$(STR$(A),2) 

5770 A$(L,0)=LEFT$(A$ + " ",3):NEXTL 
5780 PRINT"SOSTITUZ. LABEL CON INDIRIZZO 
EFFETTIVO" 

5790 FORL=IPTONL:A$=A$(L,1):IFA$=""THEN59 
90 

5800 1=1:C$=LEFT$(A$,1):B$="" 

5810 IFC$="<"ORC$=">"THENB$=C$:A$=MID$(A$ 
,2):C$=LEFT$(A$,l) 

5820 IFFNNUM(X)THENID=VAL(A$):GOTO5940 
5830 1=1+1:C$=MID$(A$,I,1):IFFNALFA(X)THE 
N5830 

5840 Z$=LEFT$(A$,1-1) 

5850 FORJ = 1TOEN:IFZ$=ET$(J)THENK=ET%(J) :J 
=EN 

5860 NEXT:IFA$(K,0)=".AD"THENID=VAL(A$(K, 
1)):GOTO5880 
5870 ID=P(K) 

5880 IFC$ = " + "THENID = ID+VAL(MID$(A$,1 + 1) ) 
5890 IFC$ = "-"THENID = ID-VAL(MID$(A$,I + 1) ) 
5900 IFB$=">"THENID=INT(ID/256):GOTO5980 
5910 IFB$="<"THENID=ID-INT(ID/256)*256:GO 
TO5980 

5920 IFI%(L)<>10THEN5980 
5930 GOTO5960 
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7095 REM ****************************** 

7097 REM LOAD PROGRAMMA SORGENTE 

5940 IFB$=""THEN5980 


7099 REM ****************************** 

5950 K=L+ID*(2*(B$="<")+1) : IFK<IPORK>NLTH 


7100 GOSUB7500:IFA$=""THEN100 

ENER=23: GOTO700 


7110 PRINTCHR$(155)TAB(80)"CARICO : "A$:0 

5960 ID=P(K)-P(L):IFID<-1260RID>129THENER 


PENI 5,8,15:OPEN2,8,2,A$ + ",S,R" 

= 22 :GOTO700 


7120 GOSUB7600:IFERTHEN71 70 

5970 ID=(ID+254)AND255 


7130 INPUT#2,NL 

5980 A$(L,1)=STR$(ID) 


7140 FORI=1TONL:FORJ=0TO2:A$(I,J)="" 

5990 NEXTL 


7150 GET# 2,Z$:IFZ$<>CHR$(13)THENA$( I,J)=A 

6000 PRINT"TRASFORMAZIONE FINALE IN CODIO 


$(I,J)+Z$:G0T07150 

E OGGETTO" 


7160 NEXTJ,I 

6010 FORL = IPTONL:IFLEFT$(A$(L,0) ,1) ="."TH 


7170 CLOSE2:CLOSEl5 :IFMOTHENRETURN 

EN6050 


7180 ER=0:L=0:GOTOl00 

6020 A=VAL(A$(L,0)):POKEP(L),A:IFI%(L)=0T 


7490 : 

HEN6050 


7500 POKE53280,6:POKE53281 ,6 

6030 K=VAL(A$(L, 1 )):C=INT(K/256):B=K-256* 


7505 A$ = "":PRINTCHR$(14 7) ; 

C 


7510 PRINTTAB(242); : INPUT"NOME DEL PROGRA 

6040 POKEP(L)+1,B:POKEP(L)+ 2 ,C 


MMA ";A$:IFLEN(A$)>15THEN7505 

6050 NEXTL:L=L-1 


7520 RETURN 

6060 PRINTCHR$(155)TAB(42)"OK , COMPILAZI 


7590 : 

ONE COMPLETA" 


7600 INPUT#15,A,B$,C,D 

6070 DE=P(IP):GOSUB4500:GOSUB4 51 0 


7610 IFA<20THENRETURN 

6075 PRINTCHR$(158)TAB(82)"INIZIO CODICE 


7620 ER=1:PRINTCHR$(155)TAB(123)"ERRORE : 

: $"ES$" ("MID$(STR$(P ( IP) ) , 2 ) " ) " 


"B$CHR$(144) 

6080 DE=P(NL+1)-1 :GOSUB4500:GOSUB451 0 


7627 REM ****************************** 

6085 PRINTTAB(44)"FINE CODICE : $"ES$" (" 


7628 REM ATTESA TASTO 

MID$(STR$(P(NL+1)-1),2)")" 


7629 REM ****************************** 

6090 GOSUB7630:GOTOl00 


7630 PRINTCHR$(155)TAB(82)"PREMI UN TASTO 

6995 REM ****************************** 


PER TORNARE AL MENU 1 " 

6997 REM SAVE PROGRAMMA SORGENTE 


7640 POKEl98,0:WAITl98,1:RETURN 

6999 REM ****************************** 


7995 REM ****************************** 

7000 IFNL=0THENER = 6: GOTO500 


7997 REM SAVE CODICE OGGETTO 

7002 GOSUB7500:IFA$=""THENl00 


7999 REM ****************************** 

7005 PRINTCHRS(155)TAB(82)"REGISTRO : "A$ 


8000 IFNL = 0THENER=6: GOTO500 

7010 OPEN 15,8,15 : OPEN2,8,2,"@:"+A$+",S,W" 


8010 GOSUB7500:IFA$=""THENl00 

:GOSUB7600:IFERTHEN7040 


8020 OPENl5,8,15:OPEN2,8,2,:"+A$+"%,S,W 

7020 PRINT#2,NL 


":GOSUB7600:IFERTHENER=0:GOTO8060 

7030 FORI=1TONL:FORJ=0TO2:PRINT#2, A$ (I,J) 

:NEXTJ,I 


8030 PRINTCHR5(155)TAB(122)"REGISTRO : "A 
$ 

7040 CLOSE2 rCLOSEl5 :IFMOTHENRETURN 


8040 A=P(IP):B=P(NL+1)-1 :PRINT#2,A:PRINT# 

7050 ER=0:GOTOl00 


2,B:PRINT#2,RU 


SCM $500,Y;$D900,Y 
SCM $600,Y;$DA()0,Y 
SCM $700,Y:$DB00,Y 
INY 

BNE LOOP 
RTS 

Ricordarsi sempre di usare lo stesso 
numero di parametri dichiarati nella 
definizione. 

'Conviene dare alle Macro un nome 
che ricordi facilmente la loro funzio¬ 
ne. 

Ricordarsi anche che le definizioni 
di Macro vanno inserite una dopo 
l’altra prima del programma princi¬ 
pale. 


Assembla 

Quando da menu si sceglie l’op¬ 
zione 2, Assembla, per prima cosa 
viene richiesto il nome del program¬ 
ma, usato in seguito per una Save. 
Rispondendo con il solo Return si 
torna al menu, e questo vale per tut¬ 
te le altre opzioni. Dando invece un 
nome inizia l’assemblaggio, il quale 
consiste di ben 5 passate per la tra¬ 
sformazione del programma sor¬ 
gente in codice oggetto. All’inizio di 
ogni passata viene visualizzato lo 
scopo della stessa. 

I primi due messaggi però corri¬ 
spondono ad una passata sola. 


Dopo il primo. Esame Macro, viene 
analizzata la struttura di tutte le de¬ 
finizioni di Macro presenti, e sosti¬ 
tuita ogni chiamata con la Macro 
vera e propria. Con il secondo, 
Espansione Macro nel programma, 
inizia la sostituzione delle chiamate 
di Macro dal programma con le li¬ 
nee che compongono la definizione. 
In caso di errori trovati, l’assembla¬ 
tore si arresta, appare un messaggio 
esplicito sul tipo di errore, e con 
qualunque tasto si va in Edit, dove il 
simbolo > indica la linea da correg¬ 
gere. 

Terminata la prima passata viene 

73 
























Assembler 


Seguito listato I. 

8050 FORI=ATOB:PRINT#2,PEEK(I) : NEXT 
8060 CLOSE2:CLOSEl5:GOTOl00 
8095 REM ****************************** 
8097 REM LOAD CODICE OGGETTO 

8099 REM ****************************** 

8100 GOSUB7500:IFA$=""THENl00 

8110 OPENl5,8,15 : OPEN2,8,2,A$+"%,S,R" 

8120 GOSUB7600:IFERTHENER=0: GOTO81 50 
8130 INPUT#2, A, B,RU:PRINTCHR$(155)TAB(122 
)"CARICO : "A$ 

8140 FORI=ATOB:INPUT#2,P:POKEI,P:NEXT 
8150 CLOSE2:CLOSEl5:GOT0100 
8495 REM ****************************** 
8497 REM RUN PROGRAMMA 

8499 REM ****************************** 

8500 POKE53280,0 :POKE53281 ,0 :PRINTCHR?(15 
2) 

8510 IFRU<0THENA$="":GOTO8530 

8520 DE=RU:PRINTTAB(9)CHR$(158)"RUN PROGR 

AMMA"TAB(40)CHR$(155):GOTO8580 

8530 PRINTTAB(123)"NEL PROGRAMMA NON E' P 

RESENTE LA DIRETTIVA [.GO]" 

8540 PRINTTAB(83); : INPUT"LOCAZIONE DI INI 
ZIO ";A$:IFA$=""THENl00 
8550 C$=LEFT$(A$,1) 

8560 IFFNNUM(X)THENSYS(VAL(A$)):GOTO8590 
8570 Z$=C$:GOSUB4000:IFERTHEN500 
8580 SYS(DE) 

8590 PRINTCHR5(158):GOSUB7630:GOTOl00 
8995 REM ****************************** 
8997 REM DISASSEMBLA 

8999 REM ****************************** 


9000 POKE53280,!1:POKE53281 , 1 1 :GOSUB9300: 
IFA$=""THENl00 

9002 K$=" DISASSEMBLA" 

9005 K=1:PRINTCHR$(147)CHR$(144)TAB(5)CHR 
$ (213); : FORI = 1T028:PRINTCHR$(192); 

9008 NEXT:PRINTCHR5(201 ) 

9011 FORI=lTO23:PRINTTAB(3)MID$(K$,I,1)" 

"CHR$(221)TAB(34)CHR$(221):NEXT 

9014 PRINTTAB(5)CHR$(202); : FORI = 1T028:PRI 

NTCHR$(192); :NEXT 

9017 PRINTCHR?(203)CHR$(19) 

9020 DE=H:GOSUB4500:GOSUB4510:PRINTTAB(6) 
CHR$(158)"$"ES$;:P=PEEK(H) 

9025 DE=P:GOSUB4500:PRINT" "CHR$(155)ES$ 

9030 POKE65,PI :POKE66,P2: FORI = 0TOP:READA$ 
:NEXT:I=VAL(MID$(A$,4)):IFI=0THEN9060 
9040 A$=LEFT$(A$,3):H=H+1:P=PEEK(H):DE=P: 
GOSUB4500:PRINT" "ES$;:B$=ES$ 

9050 IFI>4ANDI<80RI = 11THENH=H + 1:P=PEEK(H) 
:DE=P:GOSUB4500:PRINT" "ES$;:B$=ES$+B$ 
9060 PRINTTAB(23)CHR$(153)A$; 

9065 ONIGOTO9080,9090, 9100,9110,9090,91 00 

,9110,9120,9130,9140,9150 

9070 PRINT:GOTO9160 

9080 PRINT" #$"B$:GOT09160 

9090 PRINT" $"B $: GOTO9160 

9100 PRINT" $"B$",X": GOTO9160 

9110 PRINT" $"B$",Y":GOT09160 

9120 PRINT" ($"B$",X)": GOTO9160 

9130 PRINT" ($"B$"),Y":GOTO9160 

9140 DE=H+P+1+256*(P>127):GOSUB4500:GOSUB 

4510:PRINT" $"ES$:GOT09160 

9150 PRINT" ($"B$")" 


registrato il programma. L’assem¬ 
blaggio trasforma materialmente il 
programma, per cui in caso di errore 
non sarebbe più utilizzabile per la 
correzione. Invece così basta una 
Load prima di tornare in Edit. Il 
motivo per cui la Save è effettuata 
solo dopo la prima passata ha anco¬ 
ra a che fare con un eventuale erro¬ 
re. 

Dopo la fase di espansione Macro il 
programma può risultare molto più 
lungo, e una linea può non occupare 
la stessa posizione che aveva all’ini¬ 
zio dell'assemblaggio. Se la Save ve¬ 
nisse usata subito e poi fosse trovato 
un errore in una passata diversa dal¬ 
la prima, la Load (necessaria per 
tornare in Edit) caricherebbe il pro¬ 
gramma originale, nel quale la linea 
dell’errore potrebbe non essere nella 
stessa posizione. In tal caso, tornati 
in Edit, la linea indicata non sarebbe 


quella voluta. 

Se l’assemblatore non trova errori il 
programma, ormai in linguaggio 
macchina, viene posto in memoria 
con delle Poke, e vengono indicati il 
primo e l’ultimo byte utilizzati. 


Le altre opzioni 

I quattro comandi di Save e Load 
permettono la registrazione e il cari¬ 
camento dei programmi, prima o 
dopo l’assemblaggio. 

Si può usare lo stesso nome per regi¬ 
strare sia il programma sorgente sia 
il codice oggetto, in quanto prima 
della registrazione di quest’ultimo 
viene aggiunto automaticamente un 
carattere speciale al nome del file. 
L’opzione Run è già stata vista par¬ 
lando delle direttive. 

Disassembla mostra ovviamente il 


disassemblato di una zona di memo¬ 
ria, e Memory mostra il contenuto 
di determinati byte, in esadecimalee 
come ChrS. 

Si può fermare la visualizzazione 
con qualsiasi tasto, poi riprendere 
con Return oppure tornare al menu 
con un altro qualunque. La visualiz¬ 
zazione si ferma automaticamente 
quando lo schermo è stato riempito. 

Modifiche per l'unità a nastri 

Eliminare le linee 7120 e 8120. 
Eliminare Close 15 dalle linee: 7040, 
7170, 8060 e 8150. 

Riscrivere come indicato le seguenti 
linee: 

7010 OPEN 2,1,LAS 
7110 OPEN 2,l,0,A$ 

8020 OPEN 2,l,l,A$+“%” 

8110 OPEN 2,l,0,A$+“%” ■ 


74 
















Super Assembler 


Seguito listalo I. 

9160 K=K+1:H=H+1:IFPEEK(198)=OANDK<24ANDH 
<65536THEN9020 

9170 POKE198,0:WAIT198,1 :GETA$ 

9180 IFA$< >CHR$(13)ORH>6553 5THEN100 
9190 IFK<24THEN9020 
9200 GOTO9005 

9295 REM ****************************** 
9297 REM INPUT LOCAZIONE INIZIALE 

9299 REM ****************************** 

9300 A$="":PRINTCHR5(147)CHR$(158); 

9305 PRINTTAB (202) : INPUT"LOCAZIONE INI 

ZIALE ";A$:IFA$=""THENRETURN 

9310 C$=LEFT$(A$,1):IFFNNUM(X)THENDE=VAL( 

A$):G0T093 30 

9320 Z$=C$:GOSUB4000 

9330 IFER>0ORDE>65535THENER=0: GOTO9300 
9340 H=DE:RETURN 

9495 REM ****************************** 
9497 REM MEMORY 

9499 REM ****************************** 

9500 POKE53280,1 1 :POKE53281 , 1 1 :GOSUB9300: 
IFA$=""THEN100 

9510 H = INT(H/8)*8 
9515 K=1:PRINTCHR$(147) 

9520 DE=H:GOSUB4 500 :GOSUB4 510 :PRINTCHR5(1 
53)"$"ES$" "CHR$(155); 

9530 FORI=0TO7:P(I)=PEEK(H+I):DE=P(I):GOS 

UB4500:PRINT" "ES$;:NEXT 

9535 PRINT" :"CHR$(158);:FORI=0TO7 

9540 IFP(I)<320RP(I)>127ANDP(I)<160THENPR 

INT" "; :GOTO9560 

9550 PRINTCHR5(P(I)); :POKE212,0 

9560 NEXT:H=H+8:K=K+1:IFPEEK(198)=0ANDK<2 

4ANDH<65536THEN9520 

9570 POKEl98,0 :WAITl98,1:GETA$ 

9580 IFA$OCHR$ (1 3)ORH>65535THENl 00 
9590 IFK<24THEN9520 
9600 G0T09515 

9995 REM ****************************** 
9997 REM PRESENTAZIONE 

9999 REM ****************************** 

10000 POKE53280, 2 :POKE53281 ,2 

10010 C$ = " SUPER-ASSEMBLER" 
10020 PRINTCHR$(147)CHR$(156)TAB(211)"QUE 
STO E' ...”TAB(200)CHRS(158) 

10030 PRINTTAB(7)"- 

.":PRINTCHR$(14 5)CHR$(145)TAB(7); 

10200 PRINTCHRS(155);:RETURN 

19995 REM ***************************** 

1 9997 REM INI ZIALIZZAZIONE 

19999 REM ***************************** 

20000 GOSUB63500: 1$(0)=A$:NP=PC 

20005 FORK=lT055:NP=PEEK(NP)+256*PEEK(NP+ 
1):F0RI=5T07 

20010 1$(K)=1$(K)+CHR$(PEEK(NP+I)):NEXTI 
2001 2 IFK=INT(K/2)*2THENPRINTMID$(C$,K,1) 
CHR$ (29) ; 

20015 NEXTK 

20020 POKE65,PEEK(NP):P0KE66,PEEK(NP+1) 
20030 READA$:READA$ 



ELENCO DELLE VARIABILI PIU’ USATE 


Vettori 

A$(I,J) 

A%(I) 

I%(I) 

P(I) 

PAS(I) 

MP$(I,J) 

MP%(I) 

MI%(I) 

MF9? (I) 
ETS(I) 
ET'f(I) 
ER$(I) 


Costanti 

XI 

XL 

MX 

MP 

EX 


Variabili principali 

L 

Linea in cui ci si trova. 

NL 

Numero linee del programma. 

IT 

Numero istruzioni (standard + Macro). 

IP 

Linea dove inizia il programma (dopo 
eventuali Macro). 

M 

Macro alla quale ci si trova. 

ML% 

Lunghezza della Macro in cui ci si trova. 

EN 

Numero etichette presenti nel programma. 

ER 

Codice dell’errore. 

Funzioni (booleane) 

FN AZ 

Vera se C$ è una lettera. 

FN NUM 

Vera se C$ è un carattere numerico. 

FN ALFA 

Vera se C$ è un carattere alfanumerico. 

FN ESA 

Vera se C$ è un carattere esadecimale. 


J-esimo campo della I-esima linea. 

Tipo istruzione della linea I. 

Tipo indirizzamento dell’istruzione della 
linea I. 

Locazione per l’istruzione della linea I. 
Nome del parametro effettivo I (in chiama¬ 
ta). 

Nome del parametro formale J della Ma- 
cro I. 

Numero parametri della Macro I. 

Linea dove inizia la Macro I (dopo il no¬ 
me). 

Linea dove termina la Macro I. 

Nome dell’etichetta I. 

Linea dell’etichetta I. 

Descrizione dell’errore I. 


Numero massimo di istruzioni (standard + 
Macro). 

Numero massimo di linee. 

Numero massimo di linee per una Macro. 
Numero massimo di parametri per una 
Macro. 

Numero massimo di etichette. 
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93,209, , 

20040 P=PEEK(65)+ 256 *PEEK(66)-4 


25018 DATACPX,,224,228,,,236,,,,,, 

20050 P2=INT(P/256):Pl=P-256*P2 


25019 DATACPY,,192,196,,,204,,,,,, 

20060 ER$(1)="ERRORE DI SINTASSI" 


25020 DATADEC,,,198,214,,206,222,,,,, 

20070 ER$(2)="QUESTA DIRETTIVA NON ESISTE 


25021 DATADEX / 2 0 2 , //t ///r t t r 

II 


25022 DATADEY,136,,,,,,,,,,, 

20080 ER$(3) L’ISTRUZIONE INESISTENTE" 


2502 3 DATAEOR,,73,69,85,,77,93,89,65,81 ,, 

20090 ER$(4)="LA LINEA D'INIZIO E LA PRIM 


25024 DATAINC,,,230,246,,238,254,,,,, 

A DOPO OGNI MACRO VOGLIONO 'MACRO' O" 


25025 DATAINX,232,,,,,,,,,,, 

20095 ER$(4)=ER$(4)+" 'PROG'" 


25026 DATAINY,200,,,,,,,,,,, 

20100 ER$(5)="HAI SUPERATO IL MAX NUMERO 


25027 DATAJMP,,,,,,76,,,,,,1 08 

ACCETTABILE DI MACRO" 


25028 DATAJSR,,,,,,32,,,,,, 

20110 ER$(6)="NON E' PRESENTE ALCUN PROGR 


25029 DATALDA,,169,165,181 ,,173,189,185,1 

AMMA" 


61,177,, 

20120 ER$(7)="UNA MACRO NON PUÒ' ESSERE V 


25030 DATALDX,,162,166,,1 82,174,,190,,,, 

UOTA" 


25031 DATALDY,,1 60,164,180,,172,188,,,,, 

20130 ER$ (8)="HAI SUPERATO IL MAX NUMERO 


25032 DATALSR,74,,70,86,,78,94, , , , , 

DI LINEE" 


25033 DATANOP,234,,,,,,,,,,, 

20140 ER$(9)="QUESTA ISTRUZIONE ESISTE Gl 


25034 DATAORA,,9,5,21,,13,29,25,1,17,, 

A' » 


25035 DATAPHA,72,,,,,,,,,,, 

20150 ER$(10)="HAI SUPERATO IL MAX NUM. D 


25036 DATAPHP,8,,,,,,,,,,, 

I PARAMETRI" 


25037 DATAPLA,104,,,,,,,,,,, 

20160 ER$(11)="DIRETTIVA NON LECITA ALL'I 


25038 DATAPLP,40,,,,,,,,,, , 

NTERNO DI UNA MACRO" 


25039 DATAROL,42,,38,54,,46,62,,,,, 

20170 ER$(12)="IL NUM. DI PARAMETRI ATTUA 


25040 DATAROR,106,,102,118,,110,126,,,,, 

LI E' DIVERSO DAL NUM. DI PARAMETRI" 


25041 DATARTI,64,,,,,,,,,,, 

20180 ER$(12)=ER$(12)+" FORMALI" 


25042 DATARTS,96,,,,,,,,,,, 

20190 ER$(13)="HAI SUPERATO IL MAX NUMERO 


25043 DATASBC,,233,229,245,,237,253,249,2 

ACCETTABILE DI LINEE IN UNA MACRO" 


25,241,, 

20200 ER$(14)="ETICHETTA GIÀ' DEFINITA" 


2 5044 DATASEC f56 nnnrrrn 

20210 ER$(15)="HAI SUPERATO IL MASSIMO NU 


25045 DATASED,248,,,,,,,,,,, 

M. POSSIBILE DI ETICHETTE" 


25046 DATASEI, 1.20, ,,,,,,,,, , 

20220 ER$(16)="QUESTA DIRETTIVA VUOLE UN 


25047 DATASTA,,,133,149,,141 ,1 57,1 53,1 29, 

INDIRIZZO" 


145,, 

20230 ER$(17)="QUESTA DIRETTIVA VUOLE UN 


25048 DATASTX,,,134,,150,142,,,,,, 

ETICHETTA" 


25049 DATASTY,,, 1 32,1 48,, 1 40,,,,, , 

20240 ER$(18)="HAI SUPERATO 65535 ($FFFF) 


25050 DATATAX,170,,,,,,,,,,, 

II 


25051 DATATAY,168,,,,,,,,,,, 

20250 ER$(19)="USO DI UN'ETICHETTA NON DE 


25052 DATATSX,!86,,,,,,,,,,, 

FINITA" 


25053 DATATXA,138,,,,,,,,,,, 

20260 ER$(20)="HAI SUPERATO 255 ($FF)" 


25054 DATATXS,154,,,,,,,,,,, 

20270 ER$(21)="TIPO ILLECITO DI INDIRIZZA 


25055 DATATYA,152,,,,,,,,,,, 

MENTO" 


25097 REM ***************************** 

20280 ER$(22)="BRANCH TROPPO GRANDE" 


25098 REM DATI PER 'DI SASSEMBLA' 

20290 ER$(23)="BRANCH A LINEA INESISTENTE 


25099 REM ***************************** 

II 


26000 DATABRK,ORA8,???,???,???,ORA2,ASL2, 

20400 RETURN 


???,PHP,ORAI,ASL,???,???,ORA5,ASL5,??? 

24997 REM ***************************** 


26001 DATABPLl0,ORA9,???,???,???,ORA3,ASL 

24998 REM DATI PER 'ASSEMBLA' 


3,???,CLC,ORA7,???,???,???,ORA6,ASL6 

24999 REM ***************************** 


26002 DATA???,JSR5,AND8,???,???,BIT2,AND2 

25000 DATAADC,,105,101,117,,109,125,121,9 


,ROL2,???,PLP,AND 1,ROL,???,BIT5,AND5 

7,113,, 


26003 DATAROL5,???,BMI10,AND9,???,??? ,??? 

25001 DATAAND,,41,37,53,,45,61,57,33,49,, 


,AND3,ROL3,???,SEC,AND7,???,???,??? 

25002 DATAASL,10,,6,22,,14,30,,,,, 


26004 DATAAND6,ROL6,???,RTI,EOR8,???,???, 

25003 DATABCC,,,,,,,,,,,144, 


???,EOR2,LSR2,???,PHA,EORl,LSR,???,JMP5 

25004 DATABC 


26005 DATAEOR 5,LSR 5,? ? ?,BVC10,EOR 9,? ? ?,? ? 

2 500 5 D AT A BEQ m/mm/m/240; 


?,???,EOR3,LSR3,???,CLI,EOR7,???,??? 

25006 DATABIT,,,36,,,44,,,,,, 


26006 DATA???,EOR6,LSR6,???,RTS,ADC8,???, 

25007 DATABMI,,,,,,,,,,,48, 


???,???,ADC 2,ROR2,? ? ?,PLA,ADC1,ROR,??? 

25008 DATABNE,,,,,,,,,,,208, 


26007 DATAJMPl1,ADC5,ROR5,???,BVS10,ADC9, 

25009 DATABPLm m / f m / m 


???,???,???,ADÓ3,ROR3,???,SEI,ADC7,??? 

2501 0 DATABRK,0, ,,,,,,,,,, 


26008 DATA???,???,ADC6,ROR6,???,???,STA8, 

25011 DATABVC, ,,,,,,,,, ,80, 


???,???,STY2 , STA2 , STX2 , ???,DEY , ??? , TXA 

25012 DATABVS, ,,,,,,,,, ,112, 


26009 DATA??? > STY5,STA5 , STX5 , ???,BCCl0,ST 

2501 3 D AT AC LC / 24 t i tr t r 9 9 9 9 9 


A9,???,???,STY3,STA3,STX3 , ???,TYA,STA7 

25014 DATACLD,216, ,,,,,,,,,, 


26010 DATATXS,???,???,STA6,???,???,LDYl,L 

2 501 5 D AT AC lai. t QQ / r r r / t r t t r r 


DA8 , LDXl , ??? , LDY2 , LDA2 , LDX2 , ???,TAY 

25016 DATACLV,184, ,,,,,,,,,, 


26011 DATALDAl , TAX , ??? , LDY5 , LDA5,LDX5 , ??? 

25017 DATACMP,,201,197,213,,205,221,217,1 


, BCSl0 , LDA9,???,???,LDY3 , LDA3 , LDX3 , ??? 
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26012 DATACLV,LDA7,TSX, ???,LDY6,LDA6,LDX6 
, ???,CPY1 , CMP8,???,???,CPY2,CMP2,DEC2 

26013 DATA???,INY,CMPl,DEX,???,CPY5,CMP5, 
DEC5,???,BNEl0,CMP9,???,???,???,CMP3 

26014 DATADEC3,???,CLD,CMP7,???,???,???,C 
MP6,DEC6,???,CPXl,SBC8,???,???,CPX2 

26015 DATASBC2,INC2,???,INX/SBC1,NOP,???, 
CPX5,SBC 5,INC5,???,BEQ10,SBC9,???,??? 

26016 DATA???,SBC3,INC3,???,SED,SBC7,??? f 
???,???,SBC6,INC6,??? 

59995 REM ***************************** 
59997 REM INPUT LINEA 

59999 REM ***************************** 

60000 FORI=0TO2:A$(L,I):NEXT 

60010 POKE212,0:PRINTCHRS(18)"."CHR$(157) 
CHR$(146); 

60020 GETA$:IFA$=""THEN60020 

60030 A=ASC(A$):P=POS(0):IFA>95THEN60020 

60040 IFA>31THEN60130 

60050 IFA=13THENPRINT" ":RETURN 

60060 IFA020THEN60020 

60070 IFP>1ANDP<5THENI = 0:GOTO60200 

60080 IFP>5ANDP<LATHENI = 1:GOT060200 

60090 IFP>LA+1THENI = 2:GOT060200 

601 00 IFP= 5THENPRINTA$; : I = 0 :GOT060200 

60110 IFP<>LA+1THEN60020 

60120 FORI = 1 TOP-PR:PRINTA5;:NEXT:GOTO6002 
0 

60130 IFA=58THENPR=P:PRINT" "TAB(LA)A$;:G 
OTO60010 

601 40 IFP< 4THENI=0 : GOTO60300 
601 50 IFP>4ANDP<LA-1THENI = 1:GOT060300 
601 60 IFP>LAANDP<LA+ 6THENI = 2:GOT060300 
601 70 IFP = 4THENPRINT" "; 

60180 GOTO60010 
60190 : 

60200 A$(L,I)=LEFT$(A$(L,I),LEN(A$(L,I))- 
1):PRINTA$; 

60210 GOTO60010 

60300 A$(L,I)=A$(L,I)+A$:PRINTA5; 

60310 IFP= 3THENPRINT" 

60320 GOTO60010 

63495 REM ***************************** 
63497 REM RESTORE IS 

63499 REM ***************************** 

63500 RESTORE:READA$:PC=PEEK(65)+256*PEEK 
(66)-8 

63501 ID=PEEK(63)+256*PEEK(64) 

63502 LN=ID+IS 

63503 LN(1)=INT(LN/256) 

63504 LN(2)=LN-LN(1)*256 

63505 IFIS=0THENRETURN 

63506 FORI=lTOIS 

63507 NP=PEEK(PC)+256*PEEK(PC+1 ) :PC=NP 

63508 NEXT:PC=PC+4 

63509 PC(1)=INT(PC/256) 

63510 PC(2)=PC-PC(1)*256 

63511 POKE63,LN(2):POKE64,LN(1) 

63512 POKE65,PC(2):POKE66,PC(1) 

6351 3 READA$: RETURN 
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Commenti al listato 

50 - Definisce delle costanti, ovvero delle variabili che non 
verranno più modificate dal programma. 

60 - Manda alla subroutine di presentazione. 

62-75 - Definiscono delle funzioni di controllo sul tipo di 
carattere (esempio alfanumerico, esadecimale, ecc.) e di¬ 
mensionano tutti i vettori. 

80 - Manda alla subroutine che riempie il vettore dei 
messaggi di errore e quello delle istruzioni standard del 
microprocessore. 

90 - Completa l’inizializzazione delle variabili. 

100-190 - Fanno apparire il menu con tutte le opzioni. La 
variabile MO (modo) che compare in linea 100 è posta a 0 
per indicare il modo menu. 

Gli altri valori che può assumere sono: 
l=Edit, 2=Assembla Macro, 3=Assembla Prog. 

200-300 - Gestiscono la scelta dell’opzione di menu. 
500-700 - Visualizzano l’errore commesso, ma in maniera 
diversa a seconda che ci si trovi in Edit o in un altro modo. 

• Se in Edit, il messaggio potrebbe sostituire altre linee 
presenti sullo schermo, quindi prima di stamparle, le linee 
510-530 effettuano un Input da schermo per memorizzare 
le righe dove comparirà il messaggio in modo da poterle 
ripristinare subito dopo. La variabile ER% contiene la 
colonna nella quale è stato commesso l’errore. 

• Se in Assembla Prog., dopo la visualizzazione del mes¬ 
saggio viene effettuata una LOAD per riprendere il pro¬ 
gramma originale e poter andare in Edit per la correzione. 

• Negli altri casi appare semplicemente il messaggio d’er¬ 
rore. 

1000-1060 - Controllano la scelta di uno dei comandi 
possibili in Edit. 

1070-1097 - Servono per l’introduzione di una linea me¬ 
diante l’uso della subroutine di Input linea (60000-60320), 
e poi per verificarne la correttezza. 

1110-1130 - Spostano verso il basso l’indicatore di riga a 
seguito di un Crsr Down. 

1140-1160 - Spostano verso l’alto l’indicatore di riga (dopo 
un Crsr Up). 

1170-1200 - Permettono l'inserimento di una linea tra due 
consecutive. La Sys 40779 esegue uno scroll verso il basso a 
partire dalla riga nella quale ci si trova. 

1230-1290 - Cancellano la linea alla quale ci si trova. La 
Sys 40704 esegue uno scroll verso l’alto fino alla linea alla 
quale ci si trova. 

1400-1470 - Subroutine chiamata ogni volta che si va in 
Edit. Visualizza una parte del programma assembler pre¬ 
sente in memoria. 

1500-1730 - Subroutine per la verifica del campo operazio¬ 
ne. 

1800-1970 - Subroutine per la verifica del campo etichetta. 
2000-2300 - Subroutine per la verifica del campo indirizzo. 
2500-2620 - Subroutine per la verifica di un generico dato. 
Controlla, per esempio, che i caratteri successivi al simbo¬ 
lo “$” siano caratteri esadecimali. 

2700-2720 - Subroutine per la verifica di un’etichetta: il 


primo carattere deve essere alfabetico, gli altri (se ci sono) 
possono essere alfanumerici. 

3000-3070 - Viene richiesto il nome del programma ed 
inizia l’assemblaggio. Se non ci sono definizioni di Macro 
si passa subito alla fase successiva, Assembla Prog. (da 
5000 in poi). Altrimenti viene subito incrementata la varia¬ 
bile IT (numero di istruzioni) per far sì che l’assemblatore 
riconosca la Macro come una vera istruzione. 

3090-3160 - Inizia l’assemblaggio delle Macro. Viene me¬ 
morizzato il nome dei parametri formali e il loro numero. 
3180-3296 - Ciclo nel quale vengono esaminate tutte le 
istruzioni di una Macro. Se compare la chiamata di un’al¬ 
tra Macro viene effettuata la sostituzione delle linee. 
3300-3520 - Subroutine che esegue la sostituzione di una 
chiamata di Macro, con le linee della sua definizione. 
3800-3890 - Sostituiscono le istruzioni di branch per eti¬ 
chetta con istruzioni di branch relativo. Poi l’esecuzione 
prosegue alla linea 3020 per esaminare la Macro successi¬ 
va. 

4000-4090 - Subroutine per la conversione di una stringa 
esadecimale (a$) in un numero (DE). 

4500-4520 - Subroutine per la conversione di un numero 
(DE) in una stringa esadecimale (ESS)di due caratteri. Per 
ottenere una stringa di quattro caratteri viene chiamata 
questa subroutine una seconda volta, però a 4510. 
5000-5120 - Inizia l’assemblaggio del programma princi¬ 
pale. Questa è la fase dell’espansione Macro. 

5125-5260 - Viene registrato il programma e poi eseguita la 
seconda passata: conversione di tutti gli indirizzi esadeci¬ 
mali e memorizzazione delle etichette definite. 

5270-5770 - Terza passata: è trovato il tipo di indirizza¬ 
mento di tutte le istruzioni. Viene anche riempito il vettore 
P(.) con la locazione nella quale porre ogni istruzione. Il 
tipo di indirizzamento è trovato analizzando alcuni parti¬ 
colari del campo indirizzo, esempio se questo termina con 
“),Y” oppure “,X”, ecc. Alla fine si sostituisce il campo 
operazione con il codice dell’istruzione, ottenuto con una 
chiamata alla subroutine 63500. 

5780-5990 - Quarta passata: tutte le etichette usate vengo¬ 
no sostituite con il loro indirizzo effettivo facendo atten¬ 
zione a sintassi del tipo “Pippo+3” oppure del tipo “>Pip- 
po”. 

6000-6090 - Quinta passata: trasformazione finale in codi¬ 
ce oggetto. Il programma è ora pronto per essere posto in 
memoria con semplici Poke. Vengono mostrati il primo e 
l’ultimo byte occupati dal codice. 

7000-7050 - Save del programma sorgente. II primo dato è 
il numero di linee del programma. 

7100-7180 - Load del programma sorgente. 

7500-7520 - Subroutine di Input per il nome del program¬ 
ma, la cui lunghezza deve essere compresa tra 1 e 15 
caratteri. È usata dalle varie routine di Save e Load. 
7600-7620 - Subroutine di interrogazione drive per even¬ 
tuali errori. 

7630-7640 - Subroutine di attesa tasto prima di tornare al 
menu. 

8000-8060 - Save del codice oggetto. I primi tre dati sono. 
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Assembler 


rispettivamente: il primo byte di codice, l'ultimo byte, e la 
locazione dalla quale far partire l'esecuzione (mediante 
Run Programma da menu). 

8100-8150 - Load del codice oggetto. 

8500-8500 - Permettono l’esecuzione di un codice in me¬ 
moria. 

9000-9200 - Mostrano il disassemblato di qualunque zona 
di memoria. Le variabili PI e P2 che compaiono alla linea 
9030 sono i valori che, assegnati alle locazioni 65 e 66, 
permettono di iniziare a leggere i Data a partire dalla linea 
26000, saltando cosi tutti quelli precedenti (utilizzati du¬ 
rante l’assemblaggio). Le locazioni 65 e 66 infatti, conten¬ 
gono l’indirizzo del primo dato che verrà letto con una 
Read. 

9300-9340 - Subroutine per la richiesta di una locazione di 
partenza, con controllo del dato introdotto. È usata per 
opzioni quali Disassembla e Memory. 

9500-9600 - Mostrano il contenuto della zona di memoria 
voluta, sia come valore esadecimale sia come Chr$. 
10000-10200 - Subroutine di presentazione del program¬ 
ma. 

20000-20050 - Prima parte della subroutine di inizializza- 
zione. Riempimento del vettore IS$(.) con i nomi delle 
istruzioni del microprocessore. 

Siccome ognuno di questi nomi si trova per primo in 
un’istruzione Data, non viene usata la Read. Si sfrutta il 
puntatore che in memoria precede ogni linea BASIC, per 
passare alla linea successiva. 

Il nome viene ricavato leggendo direttamente dalla memo¬ 
ria i tre valori di ogni linea che interessano, e usando la 
funzione Chr.S per trasformarli in caratteri. Dopo aver 
letto tutto il blocco di linee Data in questo modo, si 
trovano i valori da assegnare a PI e P2 per la successiva 
lettura del secondo blocco di linee Data. 

20060-20400 - Seconda parte della subroutine di inizia liz- 
zazionc. Viene riempito il vettore ERS(.) dei messaggi di 
errore. 

25000-25055 - Primo blocco di linee Data (usato in Assem¬ 
bla). Il primo dato di ogni linea c di codice mnemonico 
dell’istruzione, gli altri sono i codici relativi a tutti i tipi di 
indirizzamento di quell'istruzione. 

26000-26016 - Secondo blocco di linee Data (usato in 
Disassembla). Ci sono tutte le istruzioni relative ai codici 
da 0 a 255 con una cifra che indica il tipo di indirizzamen¬ 
to. Per molti codici non esiste l’istruzione, in tal caso al 
posto dell'istruzione compare “???”. 

60000-60320 - Subroutine che gestisce l'Input controllato. 
A seconda della posizione del cursore sulla linea, viene 
riempito il primo, il secondo o il terzo campo del vettore 
AS(..). La locazione 212 che compare in linea 60010.segna¬ 
la al computer se ci si trova o no in “quote mode”. Viene 
azzerata per evitare problemi in caso di visualizzazione 
delle virgolette. 

63500-63513 - Subroutine che esegue un Restore ad una 
qualsiasi linea tra 20000 e 20055, in relazione alla variabile 
IS. Per esempio, se IS=4 la routine posiziona il puntatore 
all’oggetto Data (locazioni 65 e 66) alla linea 25004, e pone 
nella variabile A$ il primo dato della linea. 


ELENCO DEI MESSAGGI DI ERRORE 

1 Errore di sintassi. 

2 Questa direttiva non esiste. 

3 Istruzione inesistente. 

4 La linea d'inizio e la prima dopo ogni Macro vo¬ 
gliono Macro o Prog. 

5 Hai superato il massimo numero accettabile di 
Macro. 

6 Non è presente alcun programma. 

7 Una Macro non può essere vuota. 

8 Hai superato il massimo numero di linee. 

9 Questa istruzione esiste già. 

10 Hai superato il massimo numero di parametri. 

11 Direttiva non lecita all'interno di una Macro. 

12 II numero di parametri attuali è diverso dal nume¬ 
ro di parametri formali. 

13 Hai superato il massimo numero accettabile di 
linee in una Macro. 

14 Etichetta già definita. 

15 Hai superato il massimo numero possibile di eti¬ 
chette. 

16 Questa direttiva vuole un indirizzo. 

17 Questa direttiva vuole un’etichetta. 

18 Hai superalo 65535 (SFFFF). 

19 Uso di un’etichetta non definita. 

20 Hai superato 255 ($FF). 

21 Tipo illecito di indirizzamento. 

22 Brandi troppo grande. 

23 Branch a linea inesistente. 


Listato 2. Qui sono contenute, sotto forma di linee 
Data, delle routine in linguaggio macchina usate dal 
programma principale. 

?998 POKE52,1 59:POKE56,159:LM=40704:K = 0 

999 FORI = 0TOl50 :READA:POKELM+I,A:K=K+A:NE 
XT 

1000 IFKO25031 THENPRINT"ERRORE NEI DATA" 
: END 

1001 NEW 

1010 DATAI 69,21 6,1 33,251 , 1 69,3,1 33,252,1 6 
2,255,24,169,40, 1 01 , 251, 1 33,2 5.1 , 144 
1020 DATA2,230,252,232,228,214,208,240,16 
5,252,133,254,24,165,251,105,40,133 
1030 DATA253,144,2,230,254,160,39,177,253 
,145,251,136,16,249,165,254,133,252 
1040 DATAI 65,253,1 33,251 ,24,1 05,40, 1 33,25 
3,144,2,230,254,232,224,24,48,225,24 
1050 DATAI 4 4,49,1 69,1 52,1 33,251,169,1 92,1 
33,253,169,7,133,252,133,254,56,169 
1060 DATA24,229,214,170,160,39,177,251,14 
5,253,136,16,249,165,252,133,254,165 
1070 DATA251,133,253,56,233,40,133,251,17 
6,2,198,252,202,208,227,162,4,169,0 
1 080 DATAI 33,2 51 , 1 69,21 6,133,252,1 69,1 5,1 
60,255,145,251,136,208,251,145,251,230 
1090 DATA252,202,208,242,96 
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hantoms Labirinto 


Un avvincente gioco 
per il vostro VIC 20 
in configurazione base 

di Ezio Bove 

P hantoms Labirinto è, co¬ 
me si può dedurre dal no¬ 
me, un gioco di labirinto, 
che non mancherà di divertirvi. 
Come prima cosa occorre osservare 
che nulla può essere aggiunto al gio¬ 
co, considerato che a programma 
eseguito restano in memoria solo 


una settantina di byte liberi (il mini¬ 
mo indispensabile per permettere al 
VIC di eseguire il loop). 

Esso può comunque subire delle pic¬ 
cole trasformazioni (nel caso che 
l’utente abbia il coraggio di farlo!) 
come ad esempio il colore dello 
schermo, il colore di fondo, quello 
degli oggetti disseminati nel labirin¬ 
to e del labirinto stesso tramite le 
opportune Poke. 

Con un po’ di fantasia è possibile 
però modificare a proprio piacimen¬ 
to la forma del labirinto (a patto che 
questo sia delimitato). 

Ricordo inoltre che la grafica del 
gioco è completamente in alta riso¬ 


luzione, testi compresi, e consiglio 
dunque di digitare correttamente i 
Data dei caratteri e le Poke che via 
via incontrerete nel listato (questo 
per evitare di giocare con strane fi¬ 
gure indecifrabili). 

Un'ultima precisazione: il pro¬ 
gramma è completamente scritto in 
BASIC, ma la sua velocità di esecu¬ 
zione (curata il più possibile) è per¬ 
fettamente adeguata al tipo di game. 

Il gioco 

All’interno di un infernale labi¬ 
rinto avrete a che fare con uno scate¬ 
nato fantasma che cercherà in tutti i 


Listato 1. Il programma Phantoms Labirinto. 

1 PRINT"[<1CLR>)":POKE368 79,249:FORQ=7168 
T07679:POKEQ,0 :NEXT 

2 Cl=7722:C=7908:FORK=0TOl11:READAA:POKE7 
568+K,AA:NEXT:ZI=30720 

3 YY=1 :Y=50:U=1:DS=36876:FORT=38400TO3890 

5 :POKET,6 :NEXT:P0KE36869,255 

6 POKE368 78,1 5:POKE51 ,247 :POKE52,28 :POKE5 
3,247:P0KE54,28 :POKE55,247 :POKE56,28 

10 GOTO5000 

12 FORJ = 1TO750:NEXT:POKEDS,245:FORJ = lTO30 
0 :NEXT:POKEDS,0 

15 TI$="000000":POKE7932+Z1,3:POKE7932,63 
18 PRINT"[<20CRSR D>)[<5CRSR R>](<1BLK>]9 
: ; [<1RVS>]"SC:PRINT"[<8CRSR L>]<=>[<1RV 
S>]"YY 

20 Z = INT(RND(0)*4)+1 :IFZ = RTHEN20 
30 IFZ=1ANDPEEK(C+A+22)=50THENR=Z:GOTO20 
40 IFZ=2ANDPEEK(C+A-22)=50THENR=Z:GOTO20 
50 IFZ=3ANDPEEK(C+A+l)=50THENR=Z:GOTO20 
60 IFZ=4ANDPEEK(C+A-1)=50THENR=Z:GOTO20 
70 POKEC+A,32 

80 IFZ=1THENA=A+22:GOTOl15 
90 IFZ=2THENA=A-22:GOT0115 
100 IFZ=3THENA=A+1:GOTOl15 
no ifz=4thena=a-i 

115 POKEC+A+Z1,4 :POKEC+A,51 

120 IFPEEK(Cl+B+1)=50THENl30 

125 IFPEEK(1 97)=37THENP0KECl+B,32 :B=B+1:G 

OTO200 

130 IFPEEK(Cl+B-1)=50THEN140 

135 IFPEEK(1 97)= 29THENPOKECl+B,32 :B=B-1:G 

OTO200 


140 IFPEEK(Cl+B-22)=50THEN150 

145 IFPEEK(197)=17THENPOKEC1+B,32 :B=B-22: 

GOTO 200 

150 IFPEEK(Cl+B+22)=50THEN200 
155 IFPEEK(1 97)=33THENP0KEC1+B,32 :B=B+22 

200 IFPEEK (Cl +B) 032ANDPEEK (Cl +B) 052THEN 
600 

201 POKEC1+B+Z1,0 :POKEC1+B,52 :X$=RIGHT$(T 
I $,2) :X=VAL(TI$) :IFX>YTHENl000 

210 S=S+1:IFS = 10THENS=0:R=Z: GOTO20 
220 W=W+1:IFW=13THENW=0:R=Z: GOTO20 
230 Ri=Rl+1 :IFRl>8-UTHENRl=0 :GOTO300 
240 PRINT"(<1H0ME>)[<21CRSR D>][<1BLK>]67 
8[<1RVS>)"X$:GOTO30 

300 IFZ = 1 ANDPEEK (C+A-22) 050THENPOKEC+A-2 
2+Z1,2 :POKEC+A-22,53 

310 IFZ = 2ANDPEEK (C+A+22) OSOTHENPOKEC+A+2 
2+Z1,2 :P0KEC+A+22,53 

320 IFZ=3ANDPEEK (C+A-1 ) 050THENPOKEC+A-1 + 
Zi,0:POKEC+A-1,164 

330 IFZ = 4ANDPEEK (C+A+l) 050THENPOKEC+A+1 + 
ZI,2 :POKEC+A+1,53 

350 POKEDS,230 :FORJ = lTO30:NEXT:POKEDS,0:G 
OTO30 

600 IFPEEK (Cl +B) O53THEN630 
610 FORJ=200TOl30STEP-1:POKEDS+l,J:NEXTJ: 
POKEDS+1,0 :SC=SC-50 :Y=Y-5 :POKEC1+B,32 
615 PRINT"[<1CRSR U>][<5CRSR R>]9:;[<lRV 
S>)"SC:GOTO30 

630 IFPEEK(Cl+B)<>164THEN670 

650 FORJ = 240TO255:POKEDS,J:NEXT:POKEDS , 0 : 

SC=SC+200:POKEC!+B,32 

660 PRINT"[<1CRSR U>][<5CRSR R>)9:;(<1RV 
S>)"SC:GOTO30 
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Seguito listato Phantoms Labirinto. 

670 IFPEEK (Cl +B) 051 THEN799 

680 FORJ=220TOl30STEP-1:POKEDS,J:NEXT:POR 

EDS,0 :U=U+1:IFU>5THENU=5 

685 POKECl+B,32 :SC=SC+250 

686 F=F+1:IFF>4THENF=1 

687 IFF=1THENC1=7703 

688 IFF=2THENC1=8118 

689 IFF=3THENC1=8099 

690 IFF=4THENCl=7722 

691 PRINT"[<1CRSR U>)[<5CRSR R>]9:;[<lRV 
S>]"SC:PRXNT" [<8CRSR L>]< = >[<1RVS>]"YY 
695 A = 0:B=0:YY =YY+1:TI$ = "000000":POKE7932 
+ Z1,3 :POKE7932,63 : GOTO20 

799 IFD>2THEN30 

800 FORJ = 255T0245STEP-1 :POKEDS,J:SC=SC + 50 
:FORH=0TO50:NEXTH:POKEDS,0 

810 PRINT"[<1CRSR U>][<5CRSR R>]9:;[<1RV 
S>]"SC:NEXTJ:D=D+1: TI$ = "000000":POKECl+B, 
32 :GOTO30 

1000 POKECl+B+Z1,2:POKECl+B,230 :POKEDS+1, 
220 :FORJ = l5TOOSTEP-1:POKEDS+2,J:FORM=lT03 
00 

1005 NEXTM,J:POKEDS+1,0:IFYY>=31 THENPRINT 
"[<11CRSR U>][<1CRSR R>][<1RVS>][<1BLK>] 
NEW GAME":FORJ=1T02500:NEXT:RUN 
1010 PRINT"[<11CRSR U>][<1CRSR R>][<1RVS 
>][<1BLK>] GAME OVÉR" 

1020 GETA$:IFA$="1"THENRUN 

1030 IFA$="2"THENPRINT"[<1CLR>]":POKE3686 

9,240:END 

1 04 0 IFA$< >"1"ORA$< >"2"THEN1 020 

3000 DATA255,255,255,231 ,231 ,255,255,255, 


24,60,126,90,126,231,255,219 

3010 DATAI 53,1 53,1 26,24,60,36,66,1 95,4,10 

,16,56,124,116,124,56 

3020 DATA2,0,250,34,34,34,34,0,0,0,219,25 
0,171,138,139,0,0,0,152,24,0,24,152,0 
3030 DATA0,0,238,136,232,40,238,0,0,0,247 
,149,151,148,244,0,0,0,59,35,48,163,187,0 
3040 DATA0,0,142,136,140,136,238,0,0,0,13 
9,138,83,82,35,0,0,0,163,35,32,35,187,0 
3050 DATA255,153,153,255,255,153,153,255 
5000 FORT=7680TO7701:POKET,50:NEXT:FORT=8 
120TO8141 :POKET,50 :NEXT 

5010 FORT=7702TO8Ì 20STEP22:POKET,50 :NEXT: 

F0RT=7723T08141STEP22:POKET,50 :NEXT 

5020 F0RT=7726T07743:POKET,50 :NEXT:FORT = 7 

771T07785STEP2:POKET,50 :NEXT 

5030 FORT=7814T07829:POKET,50 :NEXT:FORT = 7 

858T07874STEP2:POKET,50:NEXT 

5040 FORT=7990TO8007STEP2:POKET,50:NEXT:F 

ORT=8034TO80 51 :POKET,50 :NEXT 

5050 FORT=8078TO8095STEP2:POKET,50:NEXT:F 

ORT=774 3TO80 47STEP22:POKET,50 :NEXT 

5060 POKE7941 ,32 :POKE7734,32 :POKE8039,32 : 

POKE8047,32 

5070 F0RT=7858T07989STEP22:POKET,50:NEXT: 
POKE7924,32 :POKE7931 ,50 :POKE7909,50 
5080 POKE7953,50 :POKE7954,50 :POKE791 0,50 : 
FORT=7912T07917 :POKET,50 :NEXT 
5090 F0RT=7956T07961 :POKET,50 :NEXT:POKE79 
14,32:POKE7958,32 

5100 FORT=790 5TO794 9STEP22:POKET,50 :NEXT: 
FORT=7907TO7951STEP22:POKET,50 :NEXT 
5110 POKE780 9,32 :POKE8029,32:GOTOl2 


modi di incastrarvi nei corridoi e di 
farvi esplodere. 

Per far ciò si servirà di decine e deci¬ 
ne di mine rosse con le quali vi bloc¬ 
cherà rapidamente ogni via d’uscita 
(a meno che voi non lo eliminiate del 
tutto). 

Ma la sua perfidia non finisce qui, in 
quanto sarete costretti a seguirlo in 
ogni sua mossa e questo per due 
motivi: innanzitutto perché per po¬ 
ter passare al level successivo avrete 
a disposizione un solo minuto (che si 
decrementerà di 5 secondi per ogni 
mina presa). 

In secondo luogo perché per far 
punti dovrete raccogliere i dollari da 
lui disseminati sempre più veloce¬ 
mente (level dopo level) sul piano di 


gioco. 

Avrete comunque la possibilità, per 
sole tre volte in tutta la partita, di 
scampare il pericolo “tempo scadu¬ 
to”: vi è infatti, interno alla camera 
centrale del labirinto un bonus che 
vi riazzererà il tempo e vi regalerà 
molti punti. 

A tal proposito vi ricordo che esisto¬ 
no otto e solo otto level di difficoltà 
e che dunque non dovrete preoccu¬ 
parvi se ('indicatore di level ve ne 
segnalerà un numero più alto (si ri¬ 
mane sempre sull’ottavo livello). 

Il modo per superare un level è pren¬ 
dere il fantasma, ma attenzione, per¬ 
ché proprio quando avrete creduto 
di afferrarlo egli potrebbe sfuggirvi 
dalle mani! 


Voi sarete rappresentati da un omi¬ 
no che ad inizio gioco apparirà nel¬ 
l’angolo superiore a destra del labi¬ 
rinto. 

Tale posizione cambierà comunque 
level dopo level secondo una se¬ 
quenza che in tutta la partita resterà 
la stessa. 

Potrete muovervi nelle quattro dire¬ 
zioni per mezzo di quattro tasti, e 
precisamente: 

• tasto < per andare a sinistra; 

• tasto > per andare a destra; 

• tasto A per salire; 

• tasto Z per scendere. 

REMarks 

1-3 - Inizializzazione variabili e co- 
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struzione caratteri speciali tramite 
istruzioni Read (linea 2) e Data (li¬ 
nee 3000-3050). 

6 - Apertura volume e spostamento 
dei puntatori di fine memoria a 
7415, dei puntatori area stringhe e 
lavoro stringhe per evitare il cancel¬ 
lamento dei caratteri speciali posti a 
partire dalla locazione 7568. 

10 - Salta alla routine per la costru¬ 
zione del labirinto. 

12 - Ciclo di attesa e segnale acustico 
di inizio gioco. 

15 - Azzeramento della variabile 
TI$. 

18 - Visualizzazione delle scritte 
Score, Time, Level. 

20-60 - In modo casuale viene fissata 
la direzione del fantasma. 

Le linee 30-60 controllano se la posi¬ 
zione successiva è occupata dal bor¬ 
do. In tal caso viene randomizzata 
una nuova direzione. 

70 - Cancellazione della posizione 
del fantasma. 

80-110 - In base alla generazione di 
valore casuale viene opportunamen¬ 
te incrementata o decrementata la 
variabile (B) della coordinata prin¬ 
cipale del fantasma. 

115 - Colorazione e visualizzazione 
del fantasma. 

120-155 - Spostamento dell’omino 
su| piano di gioco. 

Viene letto ti tasto premuto tramite 

11 byte 197. Ed in particolare: 


• il tasto 37 (segno di >) per andare a 
destra; 

• il tasto 29 (segno di <) per andare a 
sinistra; 

• il tasto 33 (Z) per scendere; 

• il tasto 17 (A) per salire. 

200 - Viene controllata una eventua¬ 
le collisione tra l’omino e un qual¬ 
siasi oggetto posto nel labirinto 
(fantasma compreso). 

In questo caso il programma salta 
alla routine 600. 

201 - Visualizzazione dell’omino e 
confronto tempo scaduto. 

In particolare vengono confrontate 
le variabili X (pari al valore di TI$) e 
Y opportunamente decrementata 
durante il gioco dalla collisione tra 
l’omino ed una mina. 

210-220 - Per rendere più movimen¬ 
tato il gioco queste linee, in base 
all’incremento di due variabili, ri¬ 
mandano alla generazione di valori 
casuali per la direzione del fanta¬ 
sma. 

230 - In base al valore della variabile 
U si salta meno (nei primi livelli di 
gioco) o più (man mano che questi 
aumentano) volte alla routine 300 
per la deposizione degli oggetti (mi¬ 
ne) da parte del fantasma. 

240 - Visualizzazione del tempo e 
salto alla linea 30 (inizio loop princi¬ 
pale). 

300-350 - Routine per il posiziona¬ 
mento delle mine o dei dollari in 


base alla direzione del fantasma. 
600-810 - Conseguenze delle colli¬ 
sioni tra l’omino e gli oggetti sparsi 
nel labirinto (fantasma compreso). 
In particolare: 

600-615 - Collisione tra omino e mi¬ 
na: 

viene decrementata la variabile SC 
per il punteggio e la variabile Y per il 
tempo a disposizione. 

630-660 - Collisione tra l’omino e il 
simbolo del dollaro: viene incre¬ 
mentato il solo punteggio. 

670-695 - Collisione tra l’omino e il 
fantasma: 

viene incrementata la variabile U 
per velocizzare il deposito di mine e 
di dollari da parte del fantasma. 
Incremento del punteggio. 
Incremento della variabile F per il 
posizionamento iniziale dell’omino 
in uno dei quattro angoli del labirin¬ 
to. 

Azzeramento delle variabili A e B 
(variabili principali delle coordinate 
dell’omino e del fantasma). 
Incremento della variabile YY per la 
visualizzazione del livello di gioco. 
Azzeramento del tempo (TI$) e rivi¬ 
sualizzazione del bonus al centro del 
campo di gioco. 

799-810 - Collisione tra l’omino e il 
bonus: viene controllato alla linea 
799 se il bonus è stato già preso tre 
volte: in tal caso il programma ritor¬ 
na al loop principale. 

Altrimenti: viene incrementato il 
punteggio e azzerata la variabile 
TI$. 

1000-1040 - Routine Fine Gioco: se 
si è superato il 30° livello di gioco (in 
base alla variabile YY) viene visua¬ 
lizzata la scritta “New Game” e si 
riparte con una nuova partita. 

In caso contrario apparirà la scritta 
“Game Over” ed il gioco sarà con¬ 
cluso. 

Le linee 1020-1040 consentono, tra¬ 
mite istruzione Get, l’uscita definiti¬ 
va dal programma o l’inizio di una 
nuova partita. 

Il Poke 36869,240 riabilita la mappa 
caratteri standard. 

3000-3050 - Dati caratteri speciali. 
5000-5110 - Costruzione labirinto.* 



Phantoms Labirinto 
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CALCOLARE... 

È facile con MULTIPLAN. 

Questo programma per la gestione del 
“foglio elettronico” trasforma il vostro 
personal computer in un prestigiosa cal¬ 
colatore che utilizzerete senza problemi. 
Istruzioni, comandi e ampia documenta¬ 
zione. 

Incolonnamento variabile. 
Indirizzamento relativo o assoluto. Tutto 
facilita il lavoro. Completo di guida mol¬ 
to chiara che potete far apparire, a richie¬ 
sta, sullo schermo. 


Facile 

MODIFICARE... 

Desiderate cambiare dei parametri? Mul- 
tiplan ricalcola automaticamente tutto 
ciò che ne deriva. La medesima cosa su 
più fogli di calcolo che potrete legare tra 
loro a volontà. Integrando funzioni logi¬ 
che, funzioni statistiche Multiplansi rive¬ 
la il “foglio elettronico" più potente sul 
mercato. 


DECIDERE... 

Con Multiplan avrete sotto gli occhi tutte 
le cifre per prendere decisioni oggettive. 
Eletto prograpima dell’anno, già uno dei 
best-sellcrs mondiali del 1983, Multiplan, 
è ora disponibile in Italiano. 


con Multiplan „&&&* 

MICROSOFT 

il software che ti rende 
facile la vita. 



20124 Milano - Via Rosellini, 12 
Tel. (02 ) 6888228-683797-6880841/2/3 


Potete acquistare Multiplan - edizione 
italiana - presso i migliori rivenditori Ap¬ 
ple o riceverlo direttamente da J.soft, 
compilando ed inviando il coupon sotto 
riportato. 



■T.o.mnlo _uj|^ 
Coltola Oliando Of.W 


.pel liti gl 


Bilami 


^umazione 

I Pat*o Slot) 


1500000 


5000000 


Confronto 

1.1 gattoni 11 


(olinolo d 

a I olirmi». 


[Entrate 


Definirci ono 

Soiezlonami 


300000 
2000000 
IS0000 . 
100000 
500000 
200000 


2000001 


ilmposle 

All"'» 


ll€l«IO»0 


541)000 

221000 


85000 

520000 

300000 


800000 

128000 


Biluce 
T>ulo 
Tójvot w 


,531000 


,530000 


3250000 


[Oselle 


2100000 

210000 


Pro"" 0 

|ACCOfttO«V 
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Inviare a J.soft, - Via Rosellini, 12 -20124 Milano Nome 


Cognome 


Via . 

Ordino n°.Multiplan in italiano per Apple Ma¬ 
cintosh - cod. DMOPM02 al prezzo di L. 638.000 cad. C.A.P.Città.Prov. 

(IVA e spese di spedizione incluse). 


Scelgo la seguente forma di pagamento: 

□ pagherò in contrassegno al postino 

□ assegno allegato di L. 


Desidero fattura - n° Partita IVA 
Data . Firma 


























Super Converter 
—per Spectrum— 


Due micro-utility ... 
veramente utili!! 


di Stefano Cerniti 

Q uando per la prima volta. 

nella “preistoria dell'in¬ 
formatica” prima dell’a¬ 
dozione di linguaggi ad alto livello, 
si cominciarono ad adottare sistemi 
di numerazione atti a facilitare il la¬ 
voro del programmatore, un grande 
aiuto fu dato dal sistema in base 
sedici, denominato appunto esade- 
cimale, che consiste nel suddividere 
le cifre binarie in gruppi di quattro 
cifre (digit) e sostituirli con un solo 
simbolo: per questo si usano le cifre 
da zero a nove, seguite dalla A che 
rappresenta il dieci, la B come undi¬ 
ci, fino alla F che vale quindici. 

In seguito, con l’avvento di linguag¬ 


gi come il BASIC, il Pascal e il 
FORTH, il programmatore fu di¬ 
spensato dall’ingrato compito di 
manipolare continuamente intermi¬ 
nabili serie di uno e zero, soggette 
oltretutto a facili errori di svista da 
parte dell’uomo, non avvezzo a la¬ 
vori di altissima precisione e ripetiti¬ 
vità. 

Ora il problema viene lasciato ai 
progettisti di sistemi operativi e di 
interpreti. 

Ai giorni nostri chi si cimenta con 
l’Assembly, è costretto a continue 
consultazioni delle tavole di conver¬ 
sione, per ricavare l’equivalente de¬ 
cimale degli indirizzi esadecimali 
forniti dal programma assemblato- 
re. 

In conclusione, ciò che prima era 
definito molto comodo, ora è fonte 
di problemi. 

I neofiti, che per la prima volta 
approdano sul “pianeta linguaggio 
macchina”, apprezzeranno partico¬ 
larmente le utility che sto per pro¬ 


porre. 

Il caricatore BASIC del listato uno 
genera due programmali in linguag¬ 
gio macchina che permettono la 
conversione istantanea sia da deci¬ 
male a esadecimale che viceversa. 
Per le istruzioni di caricamento, oc¬ 
corre riferirsi alla tabella I. 


Alcuni consigli 

Poiché l’algoritmo è ridotto al¬ 
l’essenziale, non sono state inserite 
le istruzioni atte a controllare l’over- 
flow della routine Dee To Hex: se 
vengono inseriti valori superiori a 
65.535, verranno visualizzati risul¬ 
tati errati. 

Mentre la routine Hex To Dee deve 
ricevere sempre quattro cifre esade¬ 
cimali, l’altra routine percepisce an¬ 
che la pressione del tasto Entcr, per 
troncare i numeri inferiori a cinque 
cifre decimali. 

Occorre prestare attenzione anche 


Listato I. // programma Super Converter. 


il CLEAR PEEK 23676*256+71 


20 POKE 23675,72: LET a =USR "a 
LET X =PEEK 23676: LET C*0 
30 FOR f*a TO a+183: READ n 
4.0 POKE t,n: LET C=C+n: NEXT f 
50 IF C < >20474+ll*X THEN PRINT 
"Hai battuto male qualcosa: 
Controlla bene i DRTfl ! ! !" : ST 
OP 

60 PRINT " PRINT USR USR ""a 1 
* Hex TO Dee" ^ 

70 PRINT '" PRINT USR USR "”j" 
Dee TO Hex 


_ 8 © 

TOJH 

i?0 


PRINT 


'TR8 a;" 


__ PRINT 'TAB 13; "0 

91 REH 

92 REM 

93 REM DRTfl per L.M. 

94- REM 

95 REM 

100 DRTfl 33,253 ,X ,6,4 .,205,234 
110 DRTfl X ,205,132, X ,205,27,4.5 


120 

130 

14-0 

150 

160 

170 

130 

190 

200 

210 

220 

230 

24.0 

250 

260 

270 

230 

290 

300 

310 

320 

330 

34-0 

350 

360 

370 

400 


DATA 48,10,254,103,48,244 
DRTfl 254,97,56.240,214,32 
DATA 245,215,241,214,48,254 
DRTfl 10,56,2,214,7,237,111 
DATA 120,203,31,48,1,43,205 
DATA 224,X,16,214,62,2,205 
DRTfl 1,22,237,75,252,X,201 
DATA 175,50,8,92,58,8,92 
DRTfl 167,40,250,201,0,239 
DATA 160,56,6,5,205,234,X 
DATA 205,132,X,79,197,205 
DRTfl 34,45,193,43,8,254,13 
DATA 32,241,6,1,24,10,197 
DATA 239,1,164,4,15,56,193 
DATA 121,215,205,224,X,16 
DATA 222,205,162,45,237,67 
DATA 252,X,205,122,X,6,4 
DATA 33,253,X,175,237,111 
DATA 198,48,254,58,56,2,198 
DATA 7,215,120,203,31,48,1 
DATA 43,16,236,205,248,31 
DATA 217,17,100,0,213,225 
DATA 205,181,3,217,217,175 
DATA 205,1,22,217,205,7,25 
DATA 62,8,215,217,33,88,39 
DATA 217,201,0,0,0,0 
REM _ 
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al cursore, che deve essere in modo 
“L” prima di effettuare la chiamata 
con Print Usr Usr “a”, altrimenti 
non verranno accettate le cifre esa- 
decimali non numeriche (da A a F). 
Questa routine di conversione da 
esadecimale a decimale ha il vantag¬ 
gio di sostituire il risultato al valore 
della Usr: se è necessario salvare su 
nastro i byte da AOCA fino a A200, 
per avere i parametri da passare al¬ 
l’istruzione Save, si può dare una 
Print Usr Usr “a”—Usr Usr “a"+l 
per ottenere la lunghezza, e Print 
Usr Usr “a” per lo start, tenendo 
presente che l’input avviene da sini¬ 
stra verso destra, cioè nel nostro ca¬ 
so dobbiamo inserire prima A200 e 
poi di seguito AOCA. 

Un’ultima avvertenza, ma è la più 
importante: se vi capita di dover 
convertire una lunga serie di numeri 
e vi viene la malsana idea di eseguire 
una linea I Print Usr Usr “a”: Go 
To 1 oppure “j”, non fatelo assolu¬ 
tamente, perché non riuscireste più 
a ritornare al BASIC e sarete co¬ 
stretti a spegnere tutto perdendo i 
dati-RAM. 

Le chiamate vanno sempre fatte 
con un comando diretto Print Usr 
Usr “a” o “j”. 

Se doveste incappare malaugurata¬ 
mente in tale “endless loop”, potre¬ 
ste tentare di uscirne continuando a 
premere tasti, e, dato che i residui 
sulla lower pari non vengono can¬ 
cellati, aspettare una richiesta di 
“scroll?” e rispondere con Break. 


Uno sguardo al disassemblato 

Per diminuire l’occupazione di 
memoria sono stati utilizzati molti 
sottoprogrammi della ROM e istru¬ 
zioni di Restart (Rst), impiegando 
persino il calcolatore floating point, 
il quale possiede un “linguaggio in¬ 
terno”, memorizzato sotto forma di 


Figura I. Disassemblalo dei due al¬ 
goritmi: un li i valori sono in esadeci¬ 
male. 


ORG FF48 (ORG 7F48 per il 16 Kbyte) 

FF48 HEX TO DEC: LD HL. MEM2 
FF4B L.D B.04 

FF4D CALL LO 

FF50 L3:CALL LI 

FF53 CALL2DIB 

FF56 JR NC.L2 

FF58 CP 67 

FF5A JR NC.L3 

FF5C CP 61 

FF5E JR C,L3 

FF60 SUB 20 

FF62 L2: PUSH AF 

FF63 RST IO 

FF64 POP AF 

FF65 SUB 30 

FF67 CP 0A 

FF69 JR.Cl-4 

FF6B SUB 07 

FF6D L4: RLD 

FF6F LD A.B 

FF70 RR A 

FF72 JR NC.L5 

FF74 DEC HL 

FF75 L5:CALL 16 

FF78 DJNZ L3 

FF7A LB: LD A.02 

FF7C CALL 1601 

FF7F LD BC.(MEMl) 

FF83 RET 

FF84 LhXOR A 

FF85 LD (5C08),A 

FF8X L7:LD A.(5C08) 

FF8B AND A 

FF8C JR Z.L7 

FF8E RET 

FF8F NOP 

FF90 DEC TO HEX:RST 28 
FF9I DB A0 

FF92 DB 38 

FF93 LD B.05 

FF95 CALL LO 

FF98 L9:CALL LI 

FF9B LD C.A 

FF9C PUSH BC 

FF9D CALL 2D22 

FFAO POP BC 

FFAI JR NC.L8 


FFA3 

FFA5 

FFA7 

FFA9 

FFAB 

FFAC 

FFAD 

FFAE 

FFAF 

FFBO 

FFBI 

FFB2 

FFB3 

FFB4 

FFB5 

FFB8 

FFBA 

FFBD 

FFCI 

FFC4 

FFC6 

FFC9 

FFCA 

FFCC 

FFCE 

FFDO 

FFD2 

FFD4 

FFD5 

FFD6 

FFD8 

FEDA 

FFDB 

FFDD 

FFEO 

FFEI 

FFE4 

FFE5 

FFE6 

FFE9 

FFEA 

FFEB 

FFEC 

FFEF 

FFFO 

Il F3 

FFF5 

FFF6 

FFF7 

I FI A 

FFFB 

FFFC 

FFFD 

FFFE 

FFFF 


CP OD 
JR NZ.L9 
LD B.OI 
JR LA 

L8: PUSH BC 
RST 28 
DB 01 
DB A4 
DB 04 
DB 0F 
DB 38 
POP BC 
LD A,C 
RST 10 
LA: CALL L6 
DJNZ L9 
CALL 2DA2 
LD (MEMI ).BC 
CALL LB 
LD B.04 
LD HL.MEM2 
LE: XOR A 
RLD 

ADD A.30 
CP 3A 
JR C.LC 
ADD A.07 
LC: RST 10 
LD A.B 
RR A 

JR NC.LD 
DEC HL 
LD: DJNZ LE 
CALL IFF8 
L6: EXX 

LD DE.0064 
PUSH DE 
POP HL 
CALL 03B5 
EXX 
LO: EXX 
XOR A 
CALL 1601 
EXX 

CALL 1907 
LD A.08 
RST 10 
EXX 

LD HL.2758 
EXX 
RFT 
MEMLNOP 
MEM2:NOP 
NOP 
NOP 
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DB (op-code) dopo l’istruzione Rst 
40. 

Per chi fosse interessato a modifiche 
eventuali o semplicemente volesse 
approfondire la conoscenza della di¬ 
namica del programma di figura 1, 
ecco alcune informazioni. 

La routine con label “LI” non ritor¬ 
na fino a che non viene premuto un 
tasto, e riporta il suo codice ASCII 
nell’accumulatore. 

La “L6” emette un beep, mentre la 
routine su ROM che inizia a 2D22 
deposita la cifra il cui codice si trova 
nell’accumulatore, sul calculator 
stack e ritorna con il carry flag setta¬ 
to se non sta trattando con un codice 
di una cifra (da 48 a 57). 

La 2DA2 passa l’ultimo valore dei 
calculator stack ai registri BC: carry 
set per numeri maggiori di 65535 e 
zero set per numeri positivi. 

La IFF8 equivale a Print Chr$ 13, 
ed infine la 1907 stampa una C lam- 


• Dai un Print UsrO, perché la variabile di sistema Udg non deve essere alterata in 
quanto il programma stabilisce in base al suo valore se sta girando su uno Spectrum 
16 Kbyte o su un 48 Kbyte. 

• Digita il listato 1. 

• Dai un Run fino a quando non riceverai più il messaggio di errore. 

• Dai un Clear: Save “Converter” Line 1 e registra una copia su nastro per i succes¬ 
sivi utilizzi. 

• Ora puoi anche dare un New, dal momento che il caricatore Basic è inutile e l’as¬ 
semblato di figura I si trova sopra a RAMtop e quindi non viene cancellato. 

• Ora puoi caricare in memoria il programma che devi mettere a punto, ma stai at¬ 
tento che la variabile Udg (23675 e 23676) non venga modificata in nessun modo, al¬ 
trimenti cambia il valore di Usr “a” e Usr “j”. 

Se devi proprio manipolarla, tieni presente che puoi effettuare le chiamate alla sub 
Hex to Dee anche con Print Usr 32584 per il 16 Kbyte o Usr 65352 per il 48 Kbyte e 
alla Dee to Hex con Usr 32656 o 65424. 

• Ricorda che non hai a disposizione i caratteri User-defined. 

• Ricorda che sono stati generati due Udg aggiuntivi, pertanto il valore di Usr “a” e 
seguenti è più basso del solito (-16). 


peggiante. 

I due programmini sono “compres¬ 
si” negli Udg, ma poiché occupano 
più dei 168 byte disponibili, è stato 
necessario creare due Udg aggiunti¬ 
vi ( 16 byte) abbassando tutto il bloc¬ 
co. 

Per questo ed altri motivi, è consi¬ 
gliabile caricare sempre prima Con¬ 
verter, dare un New e poi memoriz¬ 
zare l’eventuale Assembler con codi¬ 
ce sorgente. 


Considerazioni finali 
Durante il loro utilizzo, le routine 
presentate in queste pagine non li¬ 
mitano nè sottraggono memoria ai 
programmi BASIC o linguaggio 
macchina, e sono immuni da New. 
Con queste utility spero di essere 
riuscito ad attenuare le difficoltà che 
ostacolano il lavoro dei program¬ 
matori linguaggio macchina; co¬ 
munque, per ì programmatori BA¬ 
SIC sono in arrivo grosse sorprese. 
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Ogni anno circa due milioni di persone 
visitano la Fiera Campionaria di Milano. 
Dal 1985, ad attenderle, ci sarà 
COMPUTER SHOW 
il nuovo Salone interamente dedicato 
allinformatica per i giovani, la scuola, 
la famiglia moderna. Sicuramente sarà 
il più grande appuntamento dell’anno. 


Perché non esserci? 


Segreteria: 

E.P.I. - ENTE PROMOZIONE INFORMATICA 
Via Marochetti, 27 - 20139 Milano 
Telefoni 1021 56.93.973 - 53.98.267 
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video e dintorni 


Utilizziamo Peek e Poke 
per i nostri programmi BASIC 


di Gianfranco Pisani 

S ono ormai parecchi anni che abbiamo svilup¬ 
pato tecniche alternative per la gestione video 
dell’Apple e l’apparizione sul numero 14 di 
Aprile dell’articolo di Claudio Poma (Peek, Poke e lo 
schermo dell'Apple a pag. 24) ci ha d'io l’idea di svilup¬ 
pare queste note per approfondire ulteriormente l’anali¬ 
si della pagina video e dei suoi segreti. 

L’articolo in questione ripresentava in versione Apple il 
Gioco d’inseguimento già pubblicato in precedenza; ora 
ci proponiamo di riscriverlo abolendo tutte le Vtab, 
Htab, e Print per lasciar posto solo ai Poke (per scrivere) 
ed ai Peek (per leggere), laddove il vecchio programma 
usava solo la Peek nelle linee 184-187. 

Introdurremo inoltre un diverso algoritmo per la ricerca 
della locazione di memoria all’interno della pagina vi¬ 
deo in sostituzione di quello usato dal programma, che 
risulta un po’ lento per la presenza di ben 3 test (500- 
520) che possono agevolmente essere eliminati. 

Prima di lasciare il programma così riscritto in balia 
della fantasia di ciascuno per modifiche e personalizza¬ 
zioni varie occorrerà poi eliminarne un difetto di base: il 
Computer lanciato all’inseguimento ha la facoltà, in 
determinate situazioni, di rompere il muro di cinta 
esterno aprendo un pericoloso varco attraverso il quale 
un’abile lepre può uscire dal recinto ed impegnarsi in 
una fuga senza frontiere anche al di là dei confini della 
stessa pagina video, dove sono in agguato i micidiali 
(per il programma) Illegal Quantity Error al soldo di 
istruzioni tipo Htab 41 e Vtab 0 ...! 

Ma andiamo con ordine: prima un po’ di teoria sul 
video, poi il programma riscritto con Peek e Poke quin¬ 
di l’analisi e l’eliminazione dei suoi errori con qualche 
piccola innovazione personale e in ultimo, come diceva¬ 
mo prima, a ciascuno il suo inseguimento personale. 


Un po’ di teoria 

Il video presenta in Text Mode 960 caratteri il cui 
codice ASCII deve essere conservato in altrettante loca¬ 
zioni di memoria. Essendo questa organizzata, per ra- I 


gioni di indirizzamento, in pagine di 256 byte (esadeci- 
male FF) occorrono ben 4 pagine (4, 5, 6 e 7 per un 
totale di 1.024 byte) per gestire l’intero video. Rimango¬ 
no tuttavia libere 64 locazioni che l’Apple riserva al 
DOS e alle ROM presenti sulle schede di interfaccia¬ 
mento. 

La seguente tabella mostra l’organizzazione dell’area di 
memoria compresa tra le locazioni 1024 ($400) e 2047 
($7FF): 


Riga 1 1024-1063 
Riga 2 1152-1191 
Riga 3 1280-1319 
Riga 4 1408-1447 
Riga 5 1536-1575 
Riga 6 1664-1703 
Riga 7 1792-1831 
Riga 8 1920-1959 

Riga 17 1104-1143 
Riga 18 1232-1271 
Riga 19 1360-1399 
Riga 20 1488-1527 
Riga 21 1616-1655 
Riga 22 1744-1783 
Riga 23 1872-1911 
Riga 24 2000-2039 


Riga 91064-1103 
Riga 10 1192-1231 
Riga 11 1320-1359 
Riga 12 1448-1487 
Riga 13 1576-1615 
Riga 14 1704-1743 
Riga 15 1832-1871 
Riga 16 1960-1999 

Speciali 1144-1151 
Speciali 1272-1279 
Speciali 1400-1407 
Speciali 1528-1535 
Speciali 1656-1663 
Speciali 1784-1791 
Speciali 1912-1919 
Speciali 2040-2047 


Una lettura per righe della tabella permette di scorrere 
la memoria sequenzialmente mentre una lettura per 
colonne fa altrettanto del video. 

Dall’analisi delle colonne otterremo l’algoritmo di co- 
versione tra coordinate video (V da Vtab e H da Htab) e 
locazione di memoria (M) e dalle righe quello inverso. 
La tabella presenta 8 righe comprendenti ciascuna tre 
righe del video (40 byte) e un gruppo di 8 byte speciali: in 
seguito ci riferiremo a tale riga di tabella col termine 
“gruppo di 128 byte” per non ingenerare confusione tra 
le righe di tabella e quelle del video. Definiamo con G 
l’indice di Gruppo (da 0 a 7). 

Come già visto nell’articolo di Poma le tre righe video di 
ciascun gruppo appartengono a tre diverse fasce (colon¬ 
ne di tabella) in cui si divide il video: la prima dal rigo 1 
al 8, la seconda da 9 a 16, la terza da 17 a 24. 

Il primo gruppo di 128 byte riunisce quindi le prime righe 
di ciascuna fascia (1-9-17) c così di seguito il secondo 
gruppo conterrà le seconde righe (2-10-18) ecc. Definia¬ 
mo con F l’indice di Fascia (da 0 a 2) e con B(F) 
l’indirizzo base di ciascuna fascia. Il valore di F sarà: 
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F= INT ((V — 1)/ 8) 

Ora la locazione M cercata si ottiene aggiungendo H - I 
all’indirizzo BASE B(V) di ciascuna riga. Tenendo 
quindi conto della tabella 1 (valori di B (F)), e le seguenti 
formule: 

M = B(V) + H - l 
B( V) = B(F) + G*128 
B(F) ' = 1024 + (F ★ 40) 

G = V - 1 - (F ★ 8) 


Tab 

Prima 

Seconda 

Terza 

1 

Fascia 

Fascia 

Fascia 

B(F) 

1024 

1024+40 

1024+80 

G 

V—1 

V—1—8 

V—1—16 


da cui si ha: 


M = 1024 + (F ★ 40) + (V - 1 -(F ★ 8)) ★ 128 + H - 1 
M = 1024 + (F ★ 40) +(V ★ 128)-128-(F ★ 1024) + H 
- I 

M = 895 + (V ★ 128) - (F ★ 984) + H 
sostituendo quindi il valore di F otteniamo il seguente 
algoritmo finale: 

M = 895 + (V ★ 128) - 984 * INT ((V - 1) / 8) + H 

Il programma numero I, chiamato Vli-Mem, dimostra 
come si possa riempire il video sequenzialmente per 
righe (For di linea 20 e 30) sfruttando l’algoritmo (linea 
40) insieme alla istruzione di Poke (linea 50). Si nota in 


Listato 1. Riempie sequenzialmente il video con linee. 

1 REM * 

2 REM * 6. PISANI 

3 REM * PROG. 1 - VH-MEM 

4 REM * 

10 HOME 

20 FOR V = 1 TO 24 
30 FOR H = 1 TO 40 

40 M = 895 + (128 * V) - 984 * INT 
< (V - 1 ) / tì> + H 

50 POKE M,184 
60 NEXT H.V 
70 END 


particolare che le Poke che scrivono sulle righe 23 e 24 
non provocano alcuno scroll del video. 

L’algoritmo di Vh-Mem è stato ricavato partendo dal 
valore di F (fascia) in funzione di V noto e dalla legge di 
variazione di B(V) all’interno di ciascuna colonna di 
tabella (fascia). Ora partendo dal valore di G (gruppo) 
in funzione di M noto e dalla legge di variazione di R 
(posizione relativa di M nel suo gruppo) all’interno di 
ciascuna riga di tabella (gruppo) troveremo l’algoritmo 
inverso. I valori di G e di B(G) (indirizzo base di un 
gruppo di 128 byte o riga di tabella) e di R, così come 
definito, sono quindi: 

G = INT ((M - 1024)/ 128) 

B(G) = 1024 + G ★ 128 
R = M - B(G) = M - 1024 - G * 128 

ora R può variare daO a 119 e ci permette di determinare 
la colonna di tabella a cui appartiene M: infatti Int (R / 
40) vale rispettivamente 0, I, 2 per le tre fasce (si rivede 
quindi F). Già sappiamo che: 

G = V - 1 - (F ★ 8) 

da cui ricaviamo V: 

V = G + (F ★ 8) + 1 = G + INT (R / 40) ★ 8 + 1 

il valore di R si presta facilmente a darci anche H: 

H = R + I - (F ★ 40) = R + I - INT (R / 40) ★ 40 

L’algoritmo così trovato è stato riassunto (linee 110- 
140) nel programma 2, chiamato Mem-Vh, che scrive il 
video (linea 150 con If verificato) nell’ordine dettato 
dalla sequenza della memoria (For di linea 100)scartan- 
do le locazioni speciali (If di linea 150 non verificato) di 
cui alla fine dà le coordinate ipotetiche (linee 200-270) 
che, come si vedrà, sono tutte illegali. 

Possibili usi di un simile algoritmo: ricercare sull’uscita 
video di un programma una stringa di caratteri partico¬ 
lari e segnalarne poi le coordinate precise all’utente, 
usare il video come una matrice di input/output senza 
necessità di memorizzare in vettori ma con la comodità 
di vedere lo stato della matrice nella sua evoluzione 
dinamica (V c I I diventano quindi gli indici della matri¬ 
ce). 

Rimane da vedere la funzione delle famose 64 locazioni 
speciali: attenzione non toccatele mai se non siete pro¬ 
prio sicuri di quel che fate! 

Esse contengono dati come la slot in uso, la configura- 
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zione del sistema, il tipo di stampante, gli indirizzi base 
di alcune aree di memoria destinate alla gestione degli 
I/O ecc., e se vi venisse in testa di gestire tutto il video 
come un unico blocco di memoria da trasferire e sosti¬ 
tuire con altro (gestioni veloci delle maschere video, 
animazioni varie, salvataggi su disco ecc.) ricordatevi 
prima di salvare almeno i più importanti di questi regi¬ 
stri e rimetterli dopo al loro posto altrimenti potreste 
trovarvi in guai seri. Per addentrarci in questo campo si 
dovrebbe scrivere un articolo a parte, sempre se sarete 
riusciti a digerire questo, tuttavia, mosso a compassio¬ 
ne, vi farò un esempio pratico più avanti. 

Avendo dissertato anche sulle locazioni speciali che si 
possono considerare come i dintorni citati nel titolo, 
l’argomento della pagina video sembrerebbe esaurito 
qui, invece è proprio qui, ai confini del visibile, che si 
apre una porta verso un nuovo mondo sconosciuto (o 
quasi) e sommerso (normalmente) sotto cumuli di pro¬ 
grammi: di lui il manuale sembra dire “c’è ma non si 
tocca”, questo mondo è la seconda pagina video e la sua 
porta è Poke - 16299,0. 

Provate a dare questo comando dalla tastiera e subito il 
video cambia aspetto visualizzando l’arca di memoria 
che va da 2048 ($800) a 3071 ($11FF). 

I 960 caratteri visualizzati sono da considerarsi Ran- 
doni; il sistema, infatti, alloca i programmi a partire 
dalla locazione 2049 ($801), riempiendo le locazioni 
successive prima con i codici generati dal BASIC e poi 
con le variabili e le matrici: ora ciascuno dei 256 valori 
che può assumere una locazione genera un ben definito 
carattere video non avendone, però, il significato logico. 
Digitando un New seguito da Return noterete i primi tre 
caratteri del video che cambiano in ma in realtà 
abbiamo solo azzerato le locazioni 2048, 2049 e 2050 
($800, $801 e $802) creando un End of Program (un 
successivo List, infatti, non sortirà alcun listato). Ah, 
dimenticavamo, mentre digitate il New non lo vedrete a 
video perchè l’Apple lo sta scrivendo sulla pagina I e 
noi, per ora, non lo possiamo vedere. È evidente, quindi, 
che il solo Poke -16299,0 non ci permetterà di usare la 
pagina 2, a meno di non voler scrivere sul programma 
distruggendolo. 

Per prima cosa ritorniamo in pagina 1 (digitando Poke 
-16300,0), sempre al “buio”: dopo il Return vedrete 
ricomparire l’istruzione insieme al famoso New scom¬ 
parso in precedenza. Vi invitiamo a questo punto a fare 
delle prove: potrete notare che la presenza sul video 
della pagina 2 non impedisce al sistema di funzionare 
egualmente, infatti digitando al “buio” un comando 
errato si avvertirà il beep usuale mentre l’avviso di 
errore sarà regolarmente emesso in pagina 1, un coman¬ 
do di PR # attiverà la stampante e un List stamperà il 
programma, un Run lo eseguirà con emissione video 
sempre in pagina 1. 

Possiamo anche modificare il programma caricato digi- 


Listato 2. //programma Mem-Vh, che scrive il video. 

1 REM * 

2 REM * G. PISANI 

3 REM * PROG. 2 - MEM-VH 

4 REM * 

40 DIM MS<64),VS(64),HS<64) 

50 HOME 

ÌOO FOR M = 1024 TO 2047 

110 G = INT ((M - 1024) / 128) 

120 R = M - 1024 - 128 * G 

130 V = G + 1 + INT < R / 40) •* 8 

140 H = R + 1 - INT (R / 40) * 4 

0 

150 IF V < 25 THEN VTAB V: HTAB 
H: PRINT GOTO 170 

160 S = S + 1 : MS < S) = M:VS(S) = V 
:HS(S) = H 
170 NEXT M 

190 FOR A = 1 TO ÌOOO: NEXT 
200 HOME 

210 PRINT "NUM MEM VTAB HT 
AB": VTAB 3: POKE 34,2 
220 FOR A = 0 TO 7 
230 FOR S = 1 + A * 8 TO 8 + fl t 
8 

240 PRINT S;: HTAB 6: PRINT MS(S 
) ; " " ; VS <S> ; " ";HS (S 

) 

250 NEXT S 

260 PRINT : INPUT "PREMI RETURN 
";A*: PRINT 
270 NEXT A 

280 POKE 34,O: HOME : END 


Listato 3. L'area di memoria della pagina 2 è liberala. 

1 REM * 

2 REM * G. PISANI 

3 REM * PROG. 3 - VIDE02 

4 ‘REM * 


100 

POKE 

3072,0: 

POKE 

3073,0 


3074, 

0 



110 

POKE 

104,12: 

POKE 

103, 1 

120 

POKE 

106,12: 

POKE 

105, 4 

130 

POKE 

108,12: 

POKE 

107, 4 

140 

POKE 

110,12: 

POKE 

109, 4 

150 

POKE 

176,12: 

POKE 

1 75, 4 

160 

END 
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tando una istruzione nuova o un Del (se la modifica è 
all’inizio si potrà notare un cambiamento sul video). 
Tornando in pagina I ritroveremo traccia di tutte le 
ultime operazioni eseguite al buio. 

La spiegazione di ciò sta nel fatto che l’Apple, come tutti 
i computer, non legge o scrive un video, ma legge una 
tastiera e scrive in memoria (prova evidente di ciò è 
l’istruzione Get che non ha effetti diretti sul video), è 
quindi possibile, in via di principio, lavorare anche a 
video spento. 

La pagina 2 è strutturata in gruppi e fasce esattamente 
come la prima. Unica differenza è che le 64 locazioni in 
soprannumero non sembrano avere funzioni specifiche. 
La relativa tabella si ottiene da quella già vista per la 
pagina 1 aggiungendo 1024 a tutti gli indirizzi. 

Il programma 3, chiamato Video2, libera l’area di me¬ 
moria della pagina 2 dai compiti affidatigli dal sistema, 
spostando all’inizio della pagina 12 di memoria l’inizio 
dei programmi caricati da tastiera o da dischetti (con¬ 
fronta articoli di Staderini Rilocare l'Apple BASIC e 
altre cosucce Bit 38 e di Azzali Apple a mezzadria ovvero: 
due programmi in memoria Bit 44). Potremo ora vedere 
come si può scrivere e leggere la pagina 2 senza i proble¬ 
mi esposti; riprovate a rifare, ad esempio, il New, non 
succederà nulla alle prime tre locazioni perché ora il 
New agisce a partire da 3072 (SI200). 

Introduciamo, dopo V ed H, una terza coordinata: P 


Listato 4. Riempie le due pagine video sequenzialmen¬ 
te. 

1 REM * 

2 REM * G. PISANI 

3 REM * PROG. 4 - VHP-MEM 

4 REM * 

100 HOME 

110 POR V = 1 TO 24 

120 FQR P = 1 TO 2 

130 POR H = 1 TO 40 

140 M = (P * 1024) - 129 + (128 * 
V) - 984 * INT < (V - 1 ) / 8 
) + H 

150 POKE M, 176 + P 
160 NEXF H 

170 POKE < - 16298 - P),0 
180 NEXT P 

190 NEXT V 

200 FOR fi = 1 TO 3000: NEXT 

210 POKE - 16299,0 

220 FOR A = 1 TO 3000: NEXT 

230 POKE - 16300,0 

240 HOME : END 


che sta per Pagina e vale I o 2 per le due pagine. 
L’algoritmo di Vh-Mem diventa generale se al valore di 
M trovato si somma (P - 1) ★ 1024, cioè: 

M = 895+ (V ★ 128)-984 ★ INT((V- l)/8) + H+(P- 
1) ★ 1024 

M = (P ★ 1024)-129+ (V ★ 128)-984 ★ INT((V-1)/ 
8) + H 

Ora dopo aver fatto girare Video2 caricate il program¬ 
ma 4, chiamato Vhp-Mcm, (inizierà in 3073): questo 
programma riempie le due pagine video sequenzialmen¬ 
te per righe (For di linea 110-130) scrivendo con la Poke 
( 150) i caratteri 1 e 2 nelle locazioni via via calcolate con 
l’algoritmo (140). 

L’istruzione 170 si incarica di cambiare pagina alla fine 
di ogni riga. 

Proviamo ora a generalizzare l’algoritmo inverso, quel¬ 
lo cioè di Mem-Vh: la soluzione aprirà la strada alla 
possibilità di scrivere la pagina due con un normale 
Print unito all’uso di Vtab e Htab e di operare anche con 
Input e Get, anche se, come vedremo ci saranno delle 
differenze operative a volte vantaggiose, a volte no. 
Diciamo che il set di istruzioni Applesoft necessiterebbe 
di un nuovo comando che definiremo con Ptab P, que¬ 
sto dovrebbe lavorare come Vtab e Htab, cioè dovrebbe 
dare la terza coordinata video del cursore indirizzando- 
alla pagina I o 2. Ora P dipende da M noto: 

P = I + (M (>) 2047) 

trovato P l’algoritmo già definito per V ed H potrà 
funzionare ancora con una semplice modifica: il valore 
di partenza per il calcolo di G ed R era (M - 1024) che 
dava la posizione relativa di M rispetto all’indirizzo di 
inizio pagina, ora tale posizione diventa (M - P ★ 1024). 

Il programma 5, chiamato Mem-Vhp, ci mostra l’algo¬ 
ritmo (linee 105 e 110-140) cosi generalizzato: il For di 
linea 100 ora va da 1024 a 3071 e la linea 108 si incarica 
di girare pagina appena P = 2; la linea 150 al solito 
stampa il carattere nella posizione V, H, P (1 o 2 a 
seconda della pagina) ma al posto di Ptab P (che non 
esiste) compare un Gosub 300. 

Tutti sanno che le locazioni 32, 33, 34 e 35 gestiscono le 
finestre sul video, molti che le locazioni 36 e 37 conten¬ 
gono i valori correnti di Htab e Vtab diminuiti di una 
unità, pochi, ancora, che le locazioni 38 e 39 contengono 
l’indirizzo della corrente subroutine di input (general¬ 
mente Keyin). Ora le locazioni 40 e 41 hanno una fun¬ 
zione che non sempre compare sui manuali e che è molto 
interessante: rappresentano l’indirizzo iniziale di una 
riga video, quella a cui appartiene la posizione corrente 
del cursore. Ad ogni Vtab, Print senza il finale, o 
comunque a cavallo di due righe, Input e tutte le istru¬ 
zioni che variano la riga del cursore il sistema aggiorna 
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Listato 5. IL programma Mem-Vhp, con algoritmo 
inverso al precedente. 

J. REM * 

2 REM * 6.PISANI 

3 REM * PRGG. 5 - MEM-VHP 

4 REM * 

40 DIM MS(128), VS(128) , HS<128), P 
S( 128 ) 

50 HOME 

100 FOR M = 1024 TO. 3071 
105 P = 1 + (M ) 2047) 

108 IF P = 2 THEN POKE - 16299 
, 0 

110 G = INT <(M - P * 1024) / 12 
8) 

120 R = M - P * 1024 - 128 * G 

130 V = G + 1 + INI' (R / 40) * 8 

140 H = R + 1 - l'NT (R / 40) * 4 

0 

150 IF V < 25 THEN VTAB V: HTAB 
H: GOSUB 300: PRINT CHR* (4 
8 + P);s GOTO 170 
160 S = S + 1 : MS(S) = M:VS(S) = V 
: HS (S) = H : PS <S) = P 
170 NEXT M 

175 FOR A ~ 1 TO 1000: NEXT 
180 POKE - 16300,0 
190 FOR A = 1 TO 1000: NEXT 
200 HOME 

210 PRINT "NUM MEM VTAB HT 

AB PTAB”: VTAB 3: POKE 34, 

2 

220 FOR A = 0 TO 15 
230 FOR S = 1 + A * 8 TO 8 + A * 
8 

240 PRINT S;: HT AB 6: PRINT MS(S 
);" ";VS(S);" ";HS(S 

);" ";PS(S) 

250 NEXT S 

260 PRINT : INPUT "PREMI RETURN 
";A$: PRINT 
270 NEXT A 

280 POKE 34,0: HOME : END 
300 REM * PTAB 

310 MV = PEEK (41) 

320 POKE 41,MV + 4 * (P = 2 AND 

MV (8) - 4 * (P = 1 AND MV > 
7) 

330 RETURN 


le locazioni 40 e 41 automaticamente. Il programma 6, 
chiamato Base, dimostra quanto sopra, stampando a 
video gli indirizzi base di ciascuna riga che potrete 
confrontare con quelli della ormai famosa tabella inizia¬ 
le. Lasciamo a voi il compito di esaminare Base e di 
verificare con altri programmini la legge di variazione di 
40 e 4L 

L’indirizzo della posizione corrente del cursore, punto 
di partenza per Print, Input e Get, è dato da 

PEEK(41) ★ 256 + PEEK(40) + PEEK (36) 

quindi se si incrementa 41 di 4, prima di una Print Input 
o Get, si passa dalla pagina di memoria 4, 5, 6 e 7 
rispettivamente in 8, 9, 10 e 11 e, senza modificare 40 e 
36, si ottiene l’indirizzo della nuova posizione del curso¬ 
re in pagina 2. 

Eravamo rimasti al Gosub300di linea 150 del program¬ 
ma Mem-Vhp: la routine si incarica di effettuare le 
necessarie modifiche della locazione 41, eseguendo en¬ 
trambi i cambi di pagina secondo il seguente schema: 

• in Pagina 1 Ptab 1 non ha effetto; 

• in Pagina 1 Ptab 2 cambia pagina (incrementa di 4 
loc. 41); 

• in Pagina 2 Ptab 1 cambia pagina (decrementa di 4 
loc. 41); 

• in Pagina 2 Ptab 2 non ha effetto. 

Anche qui il programma alla fine dà i 16 gruppi di 
locazioni escluse con coordinate video illegali (linee 
200-280). 

Le istruzioni di I/O usate in pagina 2 presentano spesso 
un comportamento diverso da quello usuale. Una Print 
sulle righe 23 e 24, senza il finale, non provoca lo 
scrooi in pagina 2 ma lo può provocare in pagina 1. Due 
Print successive di cui la prima in pagina 2 provocano 
1’emissione della seconda in pagina 1: dopo la prima il 
sistema aggiorna automaticamente la locazione 37 
(Vtab) e di conseguenza 40 e 41, la seconda Print, quin¬ 
di, si troverà a. lavorare con il cursore posizionato in 
pagina 1, a meno di non eseguire la famosa Ptab 2 tra le 
due Print. Una Print a “cavallo” di due righe scrive metà 
stringa in pagina 2 e l’altra metà in pagina 1. Questi ed 
altri esempi sono raccolti nel programma 7, chiamato 
Prove 1-2, che vi dimostra l’uso in pagina 2 dei comandi 
di I/O (se volete allungare il tempo di pausa tra un’azio¬ 
ne e l’altra per meglio seguire la dinamica tra causa ed 
effetto, aumentate le stesse routine(300 Ptab, 400 visua¬ 
lizzazione video, 500 posizionamento cursore, 600 lettu¬ 
ra posizione cursore e 700 stampa posizione cursore con 
finale). 

Il programma è abbastanza semplice, ma introduce 
qualcosa di nuovo: le linee 11 e 16 ci risolvono in modo 
rapido e brillante un problema nuovo e ci aprono la 
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Listato 6. Stampa sul video gli indirizzi base di ciascu¬ 
na linea. 

1 REM * 

2 REM * G. PISONI 

3 REM * PROG. 6 - BASE 

4 REM * 

100 HOME 

110 FOR V = 1 IO 24 

120 VIAB V: HTAB V + 5 

130 A = PEEK (40):B = PEEK (41) 

:H = PEEK (36) 

140 VTAB 23! HTAB l! CALL. - 958 
ISO PRINT V;: HTAB 5: PRINT "40 

= " ■ p 

160 HTAB 15! PRINT "41 = ";B;" 

";"MB = ":B * 256 + A; 

170 PRINT " " ;"H = ";H: PRINT 

180 INPUT "PREMI RETURN "; A# 

190 NEX T V 
200 END 


Listato 7. Il programma dimostra t'uso in pagina 2 dei 
comandi d’input/output. 

1 REM * 

2 REM * G. PISANI 

3 REM •* PROG. 7 - PROVE 1-2 

4 REM * 

5 Al = 4000 

6 POKE 33, 40 

10 HOME 

11 PRINT CHR* (4) ;"BSAVE HOME, A 

1024, LI024" 

12 P = 1 : V = 1 :H = 22: G08UB 500 

13 GOSUB 700: PRINT "SCROL" 

14 FOR A = 1 TO Al: NEXT A 

15 POKE - 16299,0 

16 PRINT CHR$ (4) ;"BLOAD HOME,A 

2048" 

20 P = 2 : V = 1 :H = 4: GOSUB 500 

21 GOSUB 700: PRINT 

22 GOSUB 600: GOSUB 700: PRINT " 

SCROL" 

23 GOSUB 400 

30 P = 2 : V = 3 :H = 25: GOSUB 500 

31 GOSUB 700: PRINT "CAVALLO" 

32 GOSUB 400 


40 P = 2 : V = 5 :H - 1 : GOSUB 500 

41 GOSUB 700 : INPIJT " INPUT ? " ; A 

$ 

45 GOSUB 300: GOSUB 600 

46 GOSUB 700: PRINT "GET ";: GET 

A* 


60 

P = 2: 

V = 

10:H : 

= 5 • 

GOSUB 

500 

61 

GOSUE 

i 700: PRINT " 

S"; 


62 

VTAB 

11 : 

GOSUB 

300 : 

PRINT 

"C 

63 

VTAB 

12: 

GOSUB 

300 : 

PRINT 

"A 

64 

VTAB 

13: 

GOSUB 

300 : 

PRINT 

"L 

65 

VTAB 

14: 

GOSUB 

300 : 

PRINT 

"A 

70 

? 

P = 2: 

V = 

!*£ J> • H 

— 1 : 

GOSUB ! 

500 


71 GOSUB 700: PRINT "1 E 2 NO SC 

ROL" 

72 GOSUB 400 

80 P = 2: GOSUB 300 

81 GOSUB 600: GOSLJB 700: PRINT " 

1 SCROL E 2 NO" 

82 GOSUB 400 

100 POKE - 16300,0: END 
300 REM * PTAB 
310 MV = PEEK (41) 

320 POKE 41,MV + 4 * (P = 2 AND 

MV (8) - 4 * (P = 1 AND MV > 
7) 


330 

RETURN 


400 

REM * ASPETTA E 

CAMBIA 2-1-2 

410 

FOR A = 1 TO Al 

: NEXT A: POKE 


- 16300,0 


420 

FOR A = 1 TO Al 

: NEXT A: POKE 


~ 16299,0: RETURN 

500 

REM * POSIZIONA 

IL CURSORE 

510 

VTAB V= HTAB H: 

GOSUB 300 

520 

RETURN 


600 

REM * RILEVA LA 

POSIZ1 ONE 

610 

P = 1 + ( PEEK (41) > 7) 

620 

V = PEEK (37) + 

1 

630 

H = PEEK (36) + 

1 

640 

RETURN 


700 

REM * STAMPA LA 

POS IZI ONE 

710 

PRINT "P=";P;" 

» Il II M 

V=";V;" H=";H 

720 

RETURN 
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strada verso una nuova tecnica di gestione del video 
inteso come entità globale. II programma pratico: man¬ 
ca una istruzione di Home valida per la pagina 2, do¬ 
vremmo utilizzare una routine che stampa 24 stringhe di 
40 caratteri bianchi in pagina 2 dopo aver proceduto per 
ogni riga ad eseguire il solito Gosub 300, metodo lento e 
pesante. La soluzione: la linea 11, una Bsave, che prele¬ 
va la memoria da 1024 per lunghezza 1024, crea un File 
binario chiamato Home che è la “fotografia” del nostro 
video ripulito da una precedente istruzione di Home. 
Ora la linea 16 rimette lo stesso file in memoria a partire 
dall’indirizzo 2048, cioè riempie la pagina 2 in blocco 
con il codice 160 che rappresenta il carattere bianco. 
Tale metodo ci permette di conservare videate, masche¬ 
re già pronte, di cambiare velocemente il video 2 mentre 
l’utente sta leggendo il video 1, di aggiornare tabelle 
senza doverle riscrivere ecc. Si perde un po’ di spazio sul 
dischetto (mica tanto poi), ma si guadagna in velocità ed 
efficienza. 

Attenzione, però, se non volete avere rogne, ricordatevi 
di quanto detto a proposito delle locazioni speciali della 
pagina 1 (vi avevamo promesso un esempio, o no?): se 
salvate, per esempio, una videata dal drive 1 slot 4 e la 
riutilizzate inserendo il dischetto nel drive 2 slot 6, 
avrete la sgradita sorpresa di accorgervi che il primo 
comando DOS non indirizzato si rivolgerà allo slot 4 
invece che al 6. Ricaricando la videata abbiamo sostitui¬ 
to i valori delle locazioni speciali con quelli presenti al 
momento del salvataggio che si riferiscono a configura¬ 
zione diversa: prelevate con Peek la o le locazioni che 
interessano prima del Bload e rimettetele poi al loro 
posto con Poke (almeno la locazione 2040 che contiene 
lo slot in uso). 

Proponiamo alcuni utili esercizi per applicare quanto 
detto: 

• provate ad utilizzare le finestre (locazioni 32, 33, 34 e 
35) con la pagina 2; 

• scoprirete che la cosa è ancora possibile; 

• provate a scrivere un algoritmo in BASIC o in As- 
scmbly che sostituisca, per la pagina 2, il Cali -868 
(pulizia della riga dal cursore in poi); 

• come sopra per Cali -958 (pulizia del video dal cursore 
in poi); 

• realizzate routine in Assembly per implementare Ptab 
e Home2; 

• come sopra per liberare l’area del video 2. 


Gioco d’inseguimento riscritto con Peek e Poke 

Il gioco d’inseguimento, nella versione di Poma, usa¬ 
va le Peek (linee 184-187) per “leggere” il muro, e Vtab, 
Htab e Print (linee 100, 170 e 190) per “scrivere” le 
posizioni dei contèndenti. Questa operazione di “scrit¬ 
tura” può essere realizzata con Poke riferite a Q2, loca¬ 
zione di memoria del giocatore, e MC, per il computer. 
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Il listato 8, chiamato Lab-Po/VO (da labirinto), contie¬ 
ne le modifiche da apportare al programma di Poma per 
ottenere la nuova versione Lab-VO. La linea 97 inizializ- 
za i valori di Q2 ed MC usando rispettivamente gli 
algoritmi di conversione 500 e 600. Le linee 182-183 ed i 
test 500-530 sono scomparsi perché facenti parte del 
vecchio algoritmo. Suggeriamo di cambiare i tasti di 
comando con I, M, J e K che sono più usuali per l’Apple 
essendo già usati per le funzioni di Escape (120-135 e 
184-187). In tal caso i codici dei tasti diventano nell’or¬ 
dine 203, 202, 205, 201. Una rapida prova dimostra clic 
ora il programma gira molto veloce, l’istruzione 95 non 
è più sufficentc neanche con Speed = I (i simboli in 
movimento quasi non si vedono). Tolte quindi 7 e 95 
abbiamo aggiunto un loop di attesa in linea 205 con 
variabile inizializzata in linea 7. 

Se provate a giocare molto lentamente (VE=500) vi 
accorgerete che: 

• 120-135 permettono al giocatore di “rifugiarsi” sul 
muro esterno (X e Y sono prese valide prima di andare a 
“vedere” il muro); 

• 150-170 col giocatore sul muro il Computer può rag¬ 
giungerlo c romperlo; 

• 184-187 il giocatore si accorge di esser sul muro e 
ritorna indietro; 

• col muro ormai aperto è possibile per il giocatore 


Listato 8. Modifiche per il listalo 8 bis. 


0 

REM * 


1 

REM * G.PISANI 


2 

REM * LISTATO 0 - L.AB--PQ/V0 


3 

REM * MODIFICHE GIOCO D’1NSEGU 


IMENTO DA VERSIONE POMA A 

LA 


B-VO 


4 

REM •* 


7 VE ~ 100: REM * SPEED” .255 


95 

REM * SPEED= 150 


97 

GOSUB 500: GOSUB 600 


1OO 

POKE Q2,1601 POKE MC, 160 


170 

GOSUB 600* POKE MC,216 


102 

DEL 


103 

DEL 


190 

GOSUB 500: POKE MG, 170 


205 

FOR T = 1 TO VE: NEXT 


500 

02 = 095 + 120 * X - 984 * 

I NT 


< < X — 1) / 8) + Y: RETURN 


510 

DEL 


520 

DEL 


530 

DEL 


600 

MC = 095 + 120 * A - 904 * 

I NT 


((A - 1) / 0) + B: RETURN 













Apple: 
video e dintorni 


Listato 8 bis. Il programma Gioco di inseguimento. 
0 REM * 

1 REM * C.POMA E G.PISANI 

2 REM * PROG. 8 - L.AB-VO 

3 REM * GIOCO D’INSEGUIMENTO IN 

VERSIONE POMA MODIFICATO 

4 REM * 

5 HOME 

7 VE = 100: REM * SPEED= 255 
10 PRINT "################•• 

20 FOR C = 1 TO fi 
30 PRINT "# # # #" 

40 NEXT 

50 PRINT "a###############" 

55 VTAB 3 : HTAB 25: PRINT "RECOR 
D : "; RE 

60 A « 7 :B = 14:X * 2:Y = 2:P = 0 

95 REM * SPEED» 150 

97 GOSUB 500: GOSUB 600 

100 POKE 02,160: POKE MC,160 

110 K = PEEK ( - 16384) 

111 A* = CHR$ (K) 

120 IF ASC (A*) = 203 THEN Y = 

Y + 1 

125 IF ASC (A*) = 202 THEN Y = 

Y - 1 

130 IF ASC <A$) = 205 THEN X = 

X + 1 

135 IF ASC <A$) - 201 THEN X = 




X - 1 



140 

H = INT ( RND (1) * 2) 


150 

IF H = 0 THEN A 

= A + (X > A 


) - (X < A) 



160 

IF H = 1 THEN B 

= B + (Y > B 


) — <Y < B) 



170 

GOSUB 600: POKE 

MC, 216 


180 

IF A = X AND B = 

Y THEN 

220 

181 

NN = 163: GOSUB 500 


184 

IF PEEK <Q2) = 

NN AND 

ASC 


(A$> = 203 THEN 

y = Y -- 

1 

185 

IF PEEK (02) = 

NN AND 

ASC 


(A$> = 202 THEN 

Y = Y + 

1 

186 

IF PEEK (Q2) = 

NN AND 

ASC 


(A*) = 205 THEN 

X = X - 

1 

187 

IF PEEK <Q2) = 

NN AND 

ASC 


(A*> = 201 THEN 

X = X + 

1 

190 

GOSUB 500: POKE 

02,170 


200 

P = P + 1 



205 

FOR T = 1 TO VE: 

NEXT 


210 

GOTO 100 



220 

VTAB 15: PRINT " 

PUNT1 : 

" ;P 

225 

IF P > RE THEN RE = P 


230 

PRINT : PRINT "PER CONTINUAR 


E PREMI (RETURN) 

": : INPUT Q 


$ 



240 

GOTO 5 



500 

02 = 895 + 128 * 

X - 984 

* INT 


( (X - 1 ) / 8) + 

Y: RETURN 

600 

MC = 895 + 128 * 

A - 984 

* INT 


( (A - 1 ) / 8) + 

B: RETURN 


(bravi se ci riuscite col gioco veloce) uscire dal recinto 
attraverso il varco. In tal caso, infatti, i test 184-187 non 
hanno più efficacia; 

• il giocatore può quindi arrivare in posizione, ponia¬ 
mo, X = 25, con stop del programma in versione Poma 
(Htab 25 genera un Error) o con una Poke a memorie 
fuori video con programma in versione Lab-VO (con 
conseguenze incalcolabili). 

Per eliminare questo difetto abbiamo riscritto il pro¬ 
gramma in versione Lab-Vl che corregge anche qualche 
altro inconveniente della vecchia versione e introduce 
l’uso di alcune delle tecniche di gestione del video di cui 
si è parlato. Non è stato possibili mantenere la stessa 
numerazione delle precedenti versioni pubblicate per 
ragioni di spazio. 

REMarks 

120, 130 e 150 - Calcolano le locazioni MP, MR, MA, 
MQ ed MV, tramite la routine 1000, in funzione delle 


coordinate A e B fornite. Saranno usate per scrivere e 
leggere rispettivamente il punteggio, il record ed il re¬ 
cord assoluto (tutti sulla riga 17), e le due richieste del 
rigo 19 (vedi linea 140). La linea 130, inoltre, azzera il 
record sul video (Poke MR, 176); 

200-240 e 900 - Si incaricano di gestire il record assoluto 
RR direttamente a video senza memorizzarlo in un file 
tradizionale. 900 salva 3 byte (MA-2, MA-1, MA) del 
video (il record) in un file binario (Vl-Rec) che viene 
rimesso a video da 210 e decodificato in RR dal loop 
220-240 (che scarta anche i caratteri bianchi). La prima 
volta il file Vl-Rec non c’è, ma l’errore è ripreso da 200 
che evita problemi saltando anche la decodifica. 

Una simile soluzione, forse esagerata, serve a chiarire la 
potenzialità della gestione video con Bload e Bsave. 
250 - Ristabilisce il normale uso dell’errore e chiude la 
finestra per salvare quanto scritto da successivi Home. 
300-350 - Sono le vecchie 5-50 che preparano il recinto 
nuovo. 

360 - Azzera il punteggio sul video all’inizio di ogni 
partita (sempre con Poke diretti). 
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Listato 9. Il programma Lab-Vl. 


1 

REM * 


2 

REM * G. PISfiNI 


3 

REM * PRQG. 9 - LftB-Vl 


4 

REM * GIOCO D’ INSEGUIMENTO 

fiD 


1 PIPINO 


5 

REM * 


100 

HOME : VTfiB 14: HTftB 35: 
"RECORD"; 

PRINT 

110 

PRINT "PUNTI"; SPC( 11); 

"REC 


ORO"; SPC( 10);"fiSSOLUTO 

II 

120 

fi = 17 : B = 4: GOSUB 1000: 

MP - 


MC 


130 

B = 21 : GOSUB 1000:MR = MC: POKE 


MR, 176 :B = 38 : GOSUB 1000 :Mfi 


= MC 


140 

VTfiB 19: PRINT "CONTINUI 

(S/ 


N) ? VELOCITO’ (0-9) 

? " 

150 

fi = 19 :B = 18: GOSUB 1000 

: MQ = 


MC:B = 40: GOSUB 1000:MV 
C 

= M 

200 

ONERR GOTO 250 


210 

PRINT CHR$ (4);"BLOfiD Vl-RE 


C" 


220 

FOR MJ = 0 TO 2 


230 

CF = PEEK (Mfi - MJ) - 176:RR 


= RR + CF * (10 '' MJ) * 
> = 0) 

(CF 

240 

NEXT 


250 

POKE 216,0: POKE 35,13 


300 

HOME 


310 

PRINT "################" 


320 

FOR C = 1 TO tì 


330 

PRINT "# # # #" 


340 

NEXT 


350 

PRINT "################" 


360 

P = 0: POKE MP, 176: POKE 

MP - 


1,160: POKE MP - 2,160 


400 

fi = 9 :B = 15: GOSUB 1000: 

POKE 


MC,216 


410 

XI - 2 : Y1 = 2 : GOSUB 1100 

: X = 


X1 : Y = Y1 : MG = MM : POKE 
70 

MG, 1 

500 

POKE MV,121 - VE 


510 

K = PEEK ( - 16384) : IF 

(K < 


176 OR K > 185) fiND K < 

41 GOTO 510 

> 1 

520 

IF K == 141 THEN K = 185 

- VE 

530 

POKE MV,K : VE = 185 - K 



540 FOR Q = 1 TO 1000: NEXT :W = 
PEEK ( - 16368): PRINT CHR$ 
(7) 

600 H = INT ( RND (1) * 2) 

610 IF H = 0 THEN fi = fi + (X > fi 
) - (X < fi) 

620 IF H = 1 THEN B = B + <Y > B 
) - (Y < B) 

640 CU = MC: GOSUB 1000: IF CU = 

MC GOTO 700 


660 

POKE CU, 160: POKE 
MC = MG GOTO 800 

MC, 216: 

IF 

670 

POKE CU,160: POKE 
MC = MG GOTO 800 

MC,216: 

IF 

700 

FOR T - 1 TO VE * 

50: NEXT : 


K = PEEK ( - 16384):W = 

( - 16368) 

PEEK 

710 

IF K < 201 OR K > 
204 GOTO 600 

205 OR 

K = 

720 

XI = X + <K = 205) 

- <K = 

201 


) 

730 Y1 = Y + (K = 203) - (K = 202 


) 

750 GOSUB 1100: IF PEEK (MM) = 

163 GOTO 600 

780 POKE MG,160: IF MM = MC GOTO 
800 

790 X = XI:Y = Y1 : MG = MM: POKE M 
G,170: GOSUB 1200: GOTO 600 
800 IF P > R THEN LS = MR:LR = 3 
: GOSUB 1400 

810 IF P > RR THEN LS = Mft:L.R = 

3: GOSUB 1400 
820 POKE MQ, 96 

830 K = PEEK ( - 16384): IF K < 

> 206 RND K < >211 GOTO 8 

30 

840 POKE MQ, K':W = PEEK ( - 1636 
8 ) 

860 IF P > R THEN R = P:LS = MR: 
GOSUB 1300 

870 IF P > RR THEN RR = P:LS = M 
fi: GOSUB 1300 
880 IF K = 211 GOTO 300 
900 PRINT CHR* (4);"BSfiVE Vl-RE 
C,fi" ;Mfi - 2;",L";3 
910 POKE 35,24: VTfiB 20: END 
1000 MC 895 + 128 * fi - 984 * I NT 
((fi - 1) /8) + B: RETURN 

1100 MM = 895 + 128 * XI -- 984 * 

INT ((XI - 1) / 8) + Yl: RETURN 
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Seguilo listato 9. 

1200 P == P + 1 
1210 FOR MJ = O TO 2 
1220 CF = PEEK <MP - MJ): IF CF = 
160 THEN CF = 176 
1240 POKE MP - MJ,CF + 1 - 10 * 

(CF = 185): TF CF < 185 GOTO 
1260 

1250 NEXT 
1260 RETURN 

1300 FOk MJ = O TO 2: POKE LS - 

MJ, PEEK (MP - MJ): NEXT : RETURN 

1400 FOR L = 0 TO LR -• 1 ■ 

1410 CF = PEEK (LS - L> - 64:CF = 
CF - 64 * (CF > 127): POKE L 
S - L,CF 
1420 NEXT 
1430 RETURN 


710 - Evita qualunque operazione se K non corrisponde 
ad uno dei quattro tasti leciti (I, J, K ed M). 

720-750 - (ex 120-135) Calcolano le nuove coordinate 
ipotetiche di * (X1 ed Y1 ) e la relativa locazione (MM): 
se siamo sul muro (If di 750) abbiamo sempre validi X, 
Y ed MG e non occorrono spostamenti di *. 

780 - Cancella 1’* dalla vecchia posizione MG e si incari¬ 
ca di controllare se con la mossa fatta il giocatore finisce 
tra le braccia del suo inseguitore. 

790 - Assume valida la posizione ipotetica del giocatore 
(XI, Y1 ed MM diventano X, Y ed MG) e ripiazza I**. 
Anche qui il movimento appare costante (il tempo tra la 
comparsa di *, ex 190, e la sua scomparsa risultava 
minore di quello inverso). Quando il giocatore ha effet¬ 
tuato una mossa valida viene aggiornato il punteggio 
(routine 1200). Prima il punteggio veniva aumentato 
comunque, anche senza alcun intervento sulla tastiera. 
800-810 - Rendono lampeggiante il record eventualmen¬ 
te battuto (routine 1400). 

820-840 - Simula un Get a video completo di lampeggio 
del cursore. Accetta solo S o N. Ripulisce la tastiera e 
provvede a scrivere a video la risposta letta. 


400 - Fissa le coordinate iniziali (A e B) e la locazione di 
memoria (MC) del Computer (routine 1000) e scrive a 
video la posizione di partenza (Poke MC). 

410 - Inizializza la posizione del giocatore(X, Y ed MG) 
usando ('algoritmo di linea 1100 che ci dà MM in funzio¬ 
ne di XI ed Y1 che, come vedremo oltre, sono la posizio¬ 
ne ipotetica del giocatore. 

500-530 - Richiede a video la velocità del gioco. Ne 
parleremo più avanti. 

540 - Dopo un breve loop di ritardo azzera la tastiera 
(Peek -16368) ed emette un beep di avviso inizio gara 
(Print Chr$(7)). 

600-620 - Sono le vecchie 140-160 che muovono Ran- 
dom il Computer. 

640-670 - Implementano, se CU (vecchio) < > MC 
(nuovo), il movimento della X in modo molto costante 
(la sua comparsa, ex 170, segue subito la sua scomparsa, 
ex 100). 670 controlla se la X ha raggiunto il suo obietti¬ 
vo. 

700 - È il loop di ritardo che dà la velocità del gioco: VE 
varia da 0 a 9 dove il numero maggiore rappresenta un 
maggior ritardo ed una minor velocità, motivo per cui i 
valori richiesti a video (indici di velocità) sono opposti a 
VE. Dopo il loop c’è la lettura da tastiera (ex 110) della 
mossa decisa dal giocatore ed il suo successivo azzera¬ 
mento. Nella precedente versione la pressione di un solo 
tasto provocava la continua rilettura del suo codice e 
I'* si spostava senza sosta fino al primo muro o fino ad 
un cambio di direzione ottenuto con nuovo tasto. La 
Peek -16368 abbassa il valore della locazione dove è 
contenuto l’ultimo tasto premuto al di sotto di 128. 
Senza altri tasti K verrà letto < 128. 
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860-870 - Aggiornano a video i record battuti (routine 
1300). 

880 - test sulla risposta del Get, se è S il gioco continua. 
900-910 - Chiude il gioco riaprendo la finestra e salvan¬ 
do il record. 

500-530 - Richiede la velocità a video: il cursore si 
sovrappone al valore esistente senza cancellarlo, le ri¬ 
sposte sono controllate (Return conferma il valore vec¬ 
chio) e scritte a video. Dei valori di VE si è già parlato. 
La simulazione del Get differisce alquanto da quella 
delle linee 820-840. 

1000-1100 - Sono gli algoritmi di conversione per MCed 
MM. 

1200-1260 - Realizza un contatore a video facendo scat¬ 
tare le cifre come quelle di un orologio (sempre con i 
soliti Poke). 

1300 - Copia parti di video (lunghe 3) da un’area (che 
termina in MP) ad un’altra (che termina in LS). 
1400-1430 - È un simpatico algoritmo che fa lampeggia¬ 
re un campo scritto in Normal, lungo LR che termina in 
LS. Provate ad ampliarlo in modo che converta anche i 
caratteri Inverse, ignorando i caratteri già Flash. Scrive¬ 
te poi gli algoritmi per convertire un intero campo in 
Inverse oppure in Normal. 

Possiamo ora pensare di realizzare un recinto spaziale a 
due piani sovrapposti: quello superiore nella pagina 
video 1 e quello inferiore nella pagina video 2. Se gestia¬ 
mo il gioco in modo da inquadrare sempre il piano dove 
si muove il nostro giocatore (per il quale useremo 1 e 2, 


Listato 10. Modifiche ai Gioco d'inseguimento da ver¬ 
sione Lab-VÌ a Lab-V2. 

1 REM * 

2 REM * G. PISANI 

3 REM * LISTATO IO - LAB-V1/V2 

4 REM * MODIFICHE GIOCO D’INSEGU 

IMENTO DA VERSIONE LAB-V1 A 
LAB-V2 

5 REM * 

IO AB = 2.5 

120 A = 17:B = 4:C = 1: GOSUB ÌOO 
O:MP = MC 

210 PRINT CHR* (4);"BLOAD V2-RE 

C" 

310 PRINT "################"; SPC< 
IO)■"PAG. 1" 

370 PRINT CHR* (4>;"BSAVE V2-VI 

DEO,A1024,LI024" 

380 PRINT CHR* (4);"BL0AD V2-VI 

DEO, A2048" 

390 VTAB l: HTAB 32: POKE 41, PEEK 
(41) + 4: PRINT "2" 


400 A = 9:B = 15: C = 2: GOSUB ÌOO 
O: POKE MC,216: GOSUB 1500: 
MW, CH 

410 XI = 2 s Y1 = 2 :Z1 = 1: GOSUB 1 
ÌOO: X = X1 :Y = Y1:Z = Zl:MG 
MM: POKE MG,177 

530 POKE MV,K: POKE MV + 1024,K: 
VE = 185 - K 

600 H = INT ( RND (1) * AB) 

630 IF H = 2 THEN C = Z 
650 POKE MW,PU: GOSUB 1500: IF M 
C < ) MG + 1024 THEN POKE 

MW, CH 

660 PC = 160: IF CU » MW THEN PC 
CH 

670 POKE CU,PC: POKE MC,216: IF 
MC = MG GOTO 800 

710 IF K < 201 OR K > 205 GOTO 6 
00 

740 ZI = Z: IF K = 204 THEN ZI = 

3 - Z 

760 IF K = 204 THEN Z = Zi: POKE 
(Z - 16301>,0 

770 PG = 160: IF MG = MW THEN PG 
CH 

780 POKE MG,PG: IF MM = MC GOTO 
800 

785 CG = 176 + Z: IF MM = MC + IO 
24 THEN CG = CH 

790 X = X1 :Y = Y1:MG = MM: POKE M 
G,CG: GOSUB 1200: GOTO 600 
800 IF P > R THEN LS = MR + 1024 
* (Z = 2):LR = 3: GOSUB 140 

0 

810 IF P > RR THEN LS = MA + 102 

4 * (Z = 2):LR = 3: GOSUB 14 
00 

820 POKE MQ + 1024 * (Z = 2), 96 
840 POKE MQ,K: POKE MQ + 1024,K: 

W = PEEK ( - 16368) 

850 POKE - 16300,0 
900 PRINT CHR$ (4);"BSAVE V2-RE 
C,A"; MA - 2; ",L"; 3 
1000 MC = C * 1024 - 129 ■+• 128 * 

A - 984 * INT ((A - 1) / 8) 
B: RETURN 

1100 MM » ZI * 1024 - 129 + 128 * 
XI - 984 * INT ((XI - 1) / 
8) + Yl: RETURN 

1230 POKE MP + 1024 - MJ,CF + 1 
10 * (CF = 185) 

1500 MW - MC + 1024 * (C = 1) - 1 
024 * (C = 2) 

1510 CH ~ 88 - 64 * <C = 1) 

1520 PU = 160 + 3 * ( PEEK (MW) = 
163) 

1530 RETURN 


POKE 
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Apple: 
pagine video e dintorni 


anziché *, a seconda di dove si trova), ci troveremo di 
fronte a tre casi possibili: 

A) giocatore e Computer sono sullo stesso piano: non si 
presentano problemi; 

B) giocatore sul piano superiore (pag. 1), Computer su 
quello inferiore (pag. 2): allora in pagina 1 (inquadrata) 
si vedrà solo l’immagine del Computer che si muove in 
profondità, immagine che rappreseteremo con una X 
lampeggiante (codice 88). Il Computer in profondità 
può abbattere i muri del recinto di pagina 2, mentre la 
sua proiezione in superfice li attraversa solo. La X 
lampeggiante verrà coperta dall’ I del giocatore se questi 
passa sopra il Computer; 

C) giocatore sul piano inferiore (pag. 2), Computer su 
quello superiore (pag. 1): nella pagina 2 (inquadrata) si 
vedrà solo l’ombra del Computer che si muove più in 
alto, ombra che rappresenteremo con una X Inverse 
(codice 24). Anche qui la proiezione attraversa i muri di 
pagina 2 senza romperli, mentre il Computer può rom¬ 
pere quelli di pagina 1. Se il Computer sorvolerà il 
giocatore, la sua ombra sinistra ne coprirà il 2. 

Per comandare il passaggio di piano, il giocatore ha a 
disposizione il tasto L che, oltre ad essere vicino agli 
altri tasti di comando, ha come codice ASCII 204 il che 
semplificherà i test sulla validità della mossa. Il listato 
10, ehiamato Lab-V1 /V2, cont iene tutte le modifiche da 
apportare a Lab-VI per ottenere la nuova versione so¬ 
pra descritta. 

Di seguito troverete l’analisi delle differenze (per gli 
impazienti che volessero provare subito il programma 
ricordiamo di far girare prima il programma Video 2 per 
liberare la pagina 2 dai suoi abituali compiti): 

1000 c 1100 - Sono i nuovi algoritmi di conversione da 
coordinate (A, B e C per Computer e XI, Y1 e ZI per 
giocatore) a locazione di memoria (MC ed MM). 

120 - Pone C=1 per calcolare correttamente MP, MR, 
MA, MQ ed MV tramite 1000. 

210 e 900 - Il nome del file binario per il record è ora 
V2-Rec (i record dei due casi sono non omogenei e 
devono rimanere separati). 

310 - Scrive “Pag. 1” in pagina 1 come identificatore. 
370-380 - Preparano il recinto inferiore in pagina 2: il 
modo più semplice c quello di prelevare tutta la pagina 1 
con Bsavc e ricopiarla in pagina 2 con Bload. Abbiamo 
così ricopiato anche tutti i record e tutto il resto. 

390 - Completa in pagina 2 l’identificatore “Pag. 2’’ 
sostituendo “1” (copiato con la videata) con “2”, me¬ 
diante l’uso di un Print e dallo spiazzamento di 4 settori 
dell’indirizzo iniziale della riga di stampa (Poke 41), 
tecnica di cui si è già parlato. 

400 - Posiziona il Computer nell’angolo opposto al 
giocatore (C=2), mentre pone nel piano superiore la sua 
proiezione lampeggiante (la routine 1500 fornirà la sua 
posizione MW ed il suo codice CH). 

410 - Pone ZI e Z pari a 1 per la posizione iniziale del 


Listato 10 bis. // Gioco d’inseguimento a due piani. 

1 REM * 

2 REM * G. PISANI 

3 REM * PROC-). IO - L.AB-V2 

4 REM « GIOCO D’INSEGUIMENTO A 2 

PIANI 

5 REM * 

IO AB « 2.5 v 

ÌOO HOME : VTAB 14s HTAB 35: PRINT 
"RECORD"; 

1iO PRINT "PUNTI"; SPC< 11);"REC 
ORD"; SPC< IO);"ASSOLUTO" 

120 A « 17: B -- 4:C = l: GOSUB ÌOO 
O:MP = MC 

130 B = 21 : GOSUB 100C:MR = MC: POKE 
MR,176:B = 38: GOSUB ÌOOO:MA 
= MC 

140 VTAB 19: PRINT "CONTINUI <S/ 

N) ? VELOCITA’ (0-9) ? " 

150 A = 19:B = 18: GOSUB 1000:MQ = 

MC:B - 40: GOSUB 1000:MV = M 
C 

200 ONERR GOTO 250 
210 PRINT CHR$ (4);"BLOAD V2-RE 
C" 

220 POR MJ - 0 TO 2 
230 CF « PEEK (MA - MJ) - 176:RR 
- RR + CF * (10 MJ) * (CF 
> = 0) 

240 NEXT 

250 POKE 216,0: POKE 35,13 
300 HOME 

310 PRINT "################"; SPC( 
10);"PAG. 1" 

320 POR C = 1 TQ 0 

330 PRINT "# # # #" 

340 NEXT 

350 PRINT "################" 

360 P = 0: POKE MP,176: POKE MP - 
1,160: POKE MP - 2,160 
370 PRINT CHR$ (4);"BSAVE V2-VI 
DEO,Al024,LI024" 

380 PRINT CHR$ (4);"BLOAD V2-VI 
DEO,A2048" 

390 VTAB 1 : HTAB 32: POKE 41, PEEK 
(41) +• 4: PRINT "2" 

400 A = 9:B = 15:C = 2: GOSUB 100 

0: POKE MC,216: GOSUB 1500: POKE 
MW, CH 
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Seguilo listato 10 bis. 


410 XI « 2:Y1 = 2!ZI = 1* GOSUB 1 
100 : X == X 1 : Y = Y1 : Z = Z 1 : MG = 
MM: POKE MG., 177 
500 POKE MV, 121 - VE 
510 K = PEEK ( - 16384): IF <K < 
176 OR K > 185) AND K < > 1 
41 GOTO 510 

520 IF K - 141 THEN K = 185 - VE 

530 POKE MV,K: POKE MV + 1024,K: 
VE - 165 - K 

540 POR Q = 1 TO 1000: NEXT :W = 
PEEK ( ~ 16368): PRINT CHR* 
(7) 


600 

H = 

INT 

( RND 

( 1 ) * 

AB) 


610 

IF 

H « 

0 THEN 

A = A 

+ (X > 

A 


) 

- (X 

< A) 




620 

IF 

H - 

1 THEN 

* 

II 

TO 

+ (Y > 

B 


) 

- (Y 

< B) 




630 

IF 

H « 

2 THEN 

NI 

il 

a 



640 

CU 

il 

3 

n 

GOSUB 

1000 : 

IF CU 

= 


MC BOTO 700 

650 POKE MW,PU: GOSUB 1500: IF M 
C < > MG + 1024 THEN POKE 

MW, CH 

660 PC - 160: IF CU = MW THEN PC = 
CH 

670 POKE CU,PC: POKE MC,216: IF 
MC == MG GOTO 800 

700 POR T = 1 TO VE * 50: NEXT : 

K = PEEK < - 16384):W = PEEK 
( - 16368) 

710 IF K < 201 OR K > 205 GOTO 6 
00 


X + 

< K = 205) -• 

<K - 

201 

Y -i- 

(K « 203) - 

(K = 

202 


) 

740 ZI =-• Z: IF K « 204 THEN ZI = 

3 - Z 

750 GOSUB 1100: IF PEEK (MM) = 
163 GOTO 600 

760 IF K == 204 THEN Z = Zi: POKE 
(Z - 16301),0 

770 PG « 160: IF MG = MW THEN PG = 
CH 

780 POKE MB,PG: IF MM = MC GOTO 
800 


785 CG = 176 + Z: IF MM = MC + 10 
24 THEN CG - CH 

790 X -• XI :Y = Y1 : MG ~ MM: POKE M 
G,CG: GOSUB 1200: GOTO 600 
800 IF P > R THEN LS = MR + 1024 
* (Z = 2):LR = 3: GOSUB 140 

0 

810 IF P > RR THEN LS = MA + 102 
4 * (Z = 2):LR = 3: GOSUB 14 
00 

820 POKE MQ + 1024 * (Z == 2), 96 
330 K ~ PEEK ( - 16304): IF K < 

> 206 AND K < >211 GOTO 8 

30 

840 POKE MQ,K: POKE MQ + 1024,K: 

W = PEEK ( - 16368) 

850 POKE - 16300,O 
860 IF P > R THEN R = P:LS = MR: 
GOSUB 1300 

870 IF P > RR THEN RR = P:LS = M 
A: GOSUB 1300 
880 IF K - 211 GOTO 300 
900 PRINT CHR$ (4);"BSAVE V2-RE 
C, A" ; MA -- 2; ", L" ;3 
910 POKE 35,24: VTOB 20: END 
1000 MC - C * 1024 - 129 + 128 * 

A - 984 * INT ( (A - 1 ) / 8) 

+ B: RETURN 

1100 MM -- ZI * 1024 - 129 + 128 * 
XI - 984 * INT ((XI - 1) / 

8) + Yl: RETURN 
1200 P - P + 1 
1210 FOR MJ = 0 TO 2 
1220 CF - PEEK (MP - MJ) : IF CF = 



160 THEN CF = 176 

1230 

POKE MP + 

1024 - MJ,CF + 1 - 


10 * (CF = 

185) 

1240 

POKE MP - 

MJ,CF + 1 - 10 * 


(CF = 185) 

: IF CF ( 185 GOTO 


1260 


1250 

NEXT 


1260 

RETURN 


1300 

FOR MJ -• 0 TO 2: POKE L.S -• 

MJ, 

PEEK (MP 

- MJ): NEXT : RETURN 

1400 

FOR L = 0 

TU L.R - 1 

1410 

CF » PEEK 

(LS - L) - 64 :CF = 


CF - 64 * 

(CF > 127): POKE L 


S - L,CF 


1420 

NEXT 


1430 

RETURN 


1500 

MW = MC + 

1024 * (C = 1) - 1 


024 * (C = 

2) 

1510 

CH = 88 - 

64 * (C = 1) 

.1520 

PU “ 160 + 

3 * ( PEEK (MW) = 


163) 


.1 530 

RETURN 
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giocatore. 

530 - Una volta letta la velocità voluta (operazione che, 
come vedremo, avviene sempre in pagina 1) aggiorna il 
valore anche in pagina 2 (MV + 1024). 

10/60 e 630 - Il Computer deve ora muoversi Random 
su tre dimensioni: ponendo AB pari a 3 otterremo per H 
i valori 0, I e 2 ma con eguale probabilità. 

Ora usando un AB compreso tra 2 e 3 la probabilità di 
avere H=2 diminuisce al diminuire di AB. Con H=2 il 
Computer si muoverà solo se il giocatore è su di un 
piano diverso, quindi AB diventa un indice di difficoltà 
nel gioco regolando la frequenza con cui il Computer 
segue il giocatore che ha cambiato piano. Un valore di 
compromesso mi sembra sia 2,5. La linea 630 adegua la 
coordinata C del Computer a quella Z del giocatore 
qualora H sia pari a 2. 

650 - La mossa del Computer (linea 670 con If di 640 
non verificato) comporta anche lo spostamento della 
sua proiezione: questa lasciando il vecchio MW per il 
nuovo deve ripristinare la condizione iniziale preesi¬ 
stente al suo passaggio. La citata routine 1500 deve 
quindi provvedere a conservare in PU (codice di pulitu¬ 
ra) il carattere da ripristinare. Con l’If finale si evita di 
scrivere la proiezione nel caso in cui il Computer finisce 
sotto al giocatore, come già spiegato. Notare che 650 e 
670 gestiscono lo spostamento del Computer e della sua 
proiezione a prescindere da ciò che inquadra il video (il 
Computer può abbattere muri anche se non visto). 
660-670 - La prima prepara PC (carattere di pulitura per 
MC che si sposta, vedi 670): sarà generalmente blank 
(160) a meno che non ci sia un cambio di piano (un 
blank cancellerebbe allora la proiezione già scritta da 
650), allora PC sarà pari a CH. 

710 - È il nuovo test sul tasto usato (ora accetta anche 
L). 

740 - Ricostruisce ZI (dopo XI ed Yl) che sarà pari a 
3-Z se si digita la L. 

760 - Cambia la pagina inquadrata e posiziona Z pari al 
provvisorio ZI. 

770-780 - La prima prepara PG (carattere di pulitura per 
MG che si sposta, vedi 780): sarà generalmente blank 
(160) a meno che MG (giocatore in partenza) ed MW 
(proiezione Computer) non risultino eguali, allora PG 
sarà pari a CH. 

785-790 - La prima prepara CG (carattere da scrivere 
nella nuova posizione del giocatore, vedi 790): sarà 
generalmente I o 2 a seconda del piano (177 e 178), a 
meno che la posizione non coincida con l’ombra del 
Computer, allora sarà pari a CH. 

800-810 - Eseguono il lampeggio del record nella pagina 
che risulta inquadrata. 

820, 840 e 850 - La simulazione del Get va fatta sulla 
pagina inquadrata (820), mentre la risposta va piazzata 
su entrambe le pagine (840) in quanto occorre tornare 
comunque in pagina I (850). 


1230 - Aggiorna il punteggio anche in pagina 2. 
1500-1530 - Calcola MW (posizione della nuova proie¬ 
zione di MC), CH suo relativo codice e PU carattere 
necessario a ripulire il video dopo il passaggio (160 o 
163, blank e muro usualmente). Notare che PU=Pe- 
ek(MW) non sarebbe corretto in quanto la posizione 
della proiezione potrebbe coincidere sia con quella del 
giocatore che con quella del Computer (cambio pagina) 
non ancora cancellata, in tal caso si conserverebbe un 
codice errato. Abbiamo già visto come sono gestiti i casi 
particolari di sovrapposizione. 

Conclusioni 

Quanto detto finora non ha la pretesa di esaurire il 
panorama delle tecniche alternative per la gestione del 
video, ma solo di aprire un discorso. 

Speriamo, infatti, di leggere quanto prima su queste 
stesse pagine, nuovi contributi sull’argomento, magari 
anche dell’amico Poma, il cui lavoro è stato per noi un 
prezioso spunto iniziale. Vorremmo al proposito lancia¬ 
re un interessante quesito la cui soluzione potrebbe 
forse aprire nuove strade. 

È evidente che l’Apple gestisce il video, le sue finestre, e 
tutti gli indirizzi interni di riferimento, di cui si è parlato, 
a partire da un unico indirizzo base, quello per intender¬ 
ci che rappresenta l’angolo superiore sinistro del video 
(1024). Ora non siamo ancora riusciti a trovare le loca¬ 
zioni dove viene conservato questo valore: trovarlo, 
sempre che esista, significa poterlo modificare a nostro 
piacimento ricreando, forse, le condizioni standard per 
la pagina 1 anche in pagina 2. 

Non sappiamo se esiste una risposta a tale quesito o se 
effettivamente possa portare a qualcosa di veramente 
positivo, ma speriamo che possa produrre almeno qual¬ 
che minuto di riflessione in qualcuno dei tanti apple- 
dipendenti sparsi per l’Italia e chissà se ... 

Un consiglio: se volete tornare a lavorare ad un video 
solo dopo aver fatto girare Video2 non vi basterà un 
Reset, o riaccendete la macchina o usate un programma 
Video 1: ma lo dovrete prima scrivere da soli. Buon 
divertimento. ■ 


LEGGETE 



OGNI MESE 80 PAGINE DI SOFTWARE 
PER IL VOSTRO PERSONAL COMPUTER 
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COMMODORE VIC 20- C 64 

Type Writer 

e dimensionamento dinamico 

di Alessandro Guida 

Questo mese pubblichiamo un interessante intervento eli 
Maurizio Paoiinelii - Prima però facciamo alcuni chiari¬ 
menti sui programma Tvpe Writer per VIC20 pubblicato 
nei numeri 18 e 19 di Personal Software. 

Poiché questo programma ha avuto un certo successo 
e continua ad essere molto richiesto, abbiamo cercato di 
eliminare ogni possibile causa di malfunzionamento. 
Si sono riscontrate due imprecisioni nel testo dell’arti¬ 
colo e due errori nel programma. 

Sicuri di fare cosa gradita a chi usa questo programma, 
riportiamo le correzioni necessarie. 

Imprecisioni nel testo 

1 - Nel testo si parla della gestione di piccoli file sequen¬ 
ziali. Questo non è in effetti possibile col programma 
pubblicato sulla rivista poiché i testi vengono registrati 
su disco col suffisso Prg e non Seq. 

2-11 simbolo per riportare il risultato di un calcolo nel 
testo è sbagliato. Va usata la freccia in alto t e non il 
punto esclamativo, come appare nell’articolo. 

Errori nel programma 

1 - Nell’uso del registratore per il Load o Save di testi il 
programma risulta bloccarsi dopo aver completato l’o¬ 
perazione. 

Per evitare ciò, è necessario digitare le seguenti righe: 

3890 SYS(23135):IFR$=“F”THENGOSUB5000 
3900 GOTO 16 

4120 SYS(23162):IFR$=“F”THENGOSUB5000 
4130 GOTO3000 

2 - Dopo aver visionato le videate di aiuto, al ritorno alla 
pagina di testo non ricompare la linea che indica il 
numero di colonna e riga. Per risolvere questo problema 
vanno battute queste linee di programma: 

330 IFCH=30THEN1700 
1995 GOTO 16 

Un ultimo chiarimento 

Poiché il VIC 20 è configurabile con diverse quantità 
di RAM e ROM, alcuni lettori hanno avuto dei proble- 
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mi con queste espansioni, erroneamente attribuiti alla 
stampante. 

Ricordiamo che il programma Type Writer funziona 
esclusivamente nella seguente configurazione: 

• VIC 20 

• Espansione 16 Kbyte RAM (ne più ne meno!) 

• Drive 1540, 1541 o registratore 

• Stampante GP100VC (Seikosha), o MPS801 (Com¬ 
modore) 

Inoltre se si possiede un bus di espansione, non vi devo¬ 
no “assolutamente” essere inserite altre cartucce. Ad 
esempio la cartuccia Super Expander non è compatibile 
con il programma. 

Per essere, comunque, certi che non fossero stati appor¬ 
tati cambiamenti al sistema operativo del VIC o delle 
stampanti, abbiamo testato il Type Writer con un nuo¬ 
vo VIC 20 e tutte le stampanti ad esso collegabili. Si è 
rilevato che il programma funziona perfettamente con 
la GP100, MPS801 e la vecchia VC 1515. Vi sono invece 
dei problemi con la nuova MPS802, con la quale è 
sconsigliato l’uso di questo programma. 

Dimensionamento dinamico di matrici per C 64 

Come noto il BASIC standard del C 64 prevede che lo 
statement Dim, usato per definire la dimensione di una 
matrice, possa essere eseguito una sola volta nell’ambito 
di un programma; se si tenta di ridimensionare una 
matrice, viene segnalato un Redim’d Array Error. 

Ciò può fornire talvolta un vantaggio dal punto di vista 
diagnostico, ma costituisce una forte limitazione in mol¬ 
ti programmi che fanno uso di matrici o eseguono calco¬ 
li matriciali. L’impossibilità di ridimensionare le matrici 
obbliga il programmatore a prevedere all’inizio del pro¬ 
gramma il dimensionamento di ogni matrice per il mas¬ 
simo ordine possibile e ciò comporta in moltissimi casi 
un inutile spreco di memoria. 

Il programma qui descritto consente di sostituire al 
comando Dim standard un nuovo comando Dim, che 
permette il dimensionamento dinamico di matrici; il 
nuovo Dim ridimensiona da capo la matrice indipen¬ 
dentemente dal fatto che essa sia o no stata già dimen¬ 
sionata in precedenza. 

Se consideriamo, ad esempio, le seguenti linee: 

10 DIM A(20,2),B( 15) 

50 DIM A(2,3,2),B(25,1,1,2) 

Notiamo che la linea 10 dimensiona le matrici A e B. 
L’esecuzione della linea 50 col comando Dim standard 
causerebbe un Redim’d Array Error; col nuovo coman¬ 
do invece ridefinisce, da quel momento in poi, le matrici 
A e B secondo i nuovi indici racchiusi fra parentesi. 







Type Writer 
dimensionamento 
_dinamico_ 

Il principio di base del Dim dinamico 

Nella memoria del C 64 le matrici vengono memoriz¬ 
zate in sequenza in un’area puntata dal vettore $002F, 
secondo lo schema di figura 1. 

Il contenuto del vettore S002F è ADDR M 0 che rappre¬ 
senta l’indirizzo dell’array M 0 . I primi due byte conten¬ 
gono il nome della matrice M () ; i secondi due byte indica¬ 
no la lunghezza 1 () di Mo, ovvero il numero di byte 
riservati per la memorizzazione di tutte le informazioni 
relative alla matrice Mo. In altre parole l’area di memo¬ 
ria (ADDR M i( )t(ADDR Mo + lo -1 ) è riservata all’ar- 
ray Mo. 

Dalla locazione ADDR M, = ADDR M 0 +lo sono me¬ 
morizzate le informazioni relative alla matrice Mi che 
occupa un’area di memoria di dimensione 1 1 ... e così via. 
Il vettore $0031 punta alla fine dell’area dedicata alle 
matrici (ADDR FA). 

Quando in un programma si incontra il comando Dim 
standard, l’interprete va a cercare se, fra i nomi delle 
matrici contenute nell’area matrici, c’è quello dell’array 
che si vuole dimensionare. Se non esiste apre una fine- 



vettore $0021=ADDR Mo 
vettore $0031=ADDR FA 


ADDRM 0 x' 

x, 

X' 

• 

♦ 

• 

J> nome matrice 

|> lo= n.ro byte occupati da Mq 

ADDR M j x) 

(=ADDR M 0 + 1 0 )XJ 
X) 

X J 

• 

• 

# 

j> nome matrice 

> li = n.ro byte occupati da Mj 

e 9 

e • 

• « 

ADDRM N xì 

(=ADDR x/ 

M N-1 +1 N-l> * j, 

• 

• 

e 

■ nome matrice 

I N = n.ro byte occupati da M N 


ADDR FA 
(=ADDR M n . 1 n ) 


Figura 1. Ecco come vengono memorizzate le matrici 
nel C 64. 



é in edicola 


UiDCO 

GiOChi 

é in edicolaX^y 

Una pubblicazione 

GRUPPO EDITORIALE JACKSON 



é in edicola 
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vettore $002F*ADDR M 

vettore $002F*ADDR Mo 

vettore $002F*ADDR Mo 

vettore $0031=ADDR FAo 

vettore $0031=ADDR FA, 

vettore $0031=ADDR FA 2 

ADDR M 0 

=n 

xj 

nome M 0 

ADDR M 0 

;} 

nome M 0 

ADDR Mq 


nome Mq 


x\ 

1q 


Xì 



X : 



*; 


xj 

lo 


X 

} >0 


• 



• 



♦ 



• 



• 



• 



• 



• 



• 


ADDR M, 

x\ 

nome M] 


ADDR M 2 

x\ 

nome M 2 

ADDR M 2 

xl 

► nome M 2 

xj 



xj 


Xj 


x \ 

4 


xì 



X 

> 12 



1 / 


*} 

h 


Xj 


• 



• 



• 



• 




• 



• 


ADDR M 2 


nome M 2 


ADDR FA, 



ADDR M ] 

Xì 

> nome M, 


xj 




Xj 


X\ 

1 2 

r 




X ì 

\ >1 



/ 




xj 


• 

• 


/ 




• 



♦ 


/ 




• 


ADDR FAq 






ADDR FA 2 



Situazione di partenza 

Prima fase: cancellazione 

Seconda fase 

ridimensiona- 




della Mj 

attuale 


mento di M, 



Figura 2. Schema di funzionamento de! nuovo comando Dim. 





stia al termine dell’al ea matrici, dedicata al nuovo array 
e aggiorna il contenuto del vettore $0031. 

In caso contrario viene segnalato un Redim’d Array 
Error. 

Per seguire il semplice principio su cui si basa la realizza¬ 
zione del nuovo comando Dim si farà riferimento allo 
schema di figura 2. 

Si supponga di voler ridimensionare la matrice Mi; il 
nuovo comando agisce in due tempi. Prima di tutto fa 
scomparire l’area dedicata a Mi trasferendo tutto il 
blocco di memoria ADDR Mj - ADDR FA 0 a partire 
da (ADDR Mo+ln); a questo punto la matrice M, non 
esiste più fisicamente in memoria. 

H dunque possibile eseguire un Dim standard che, non 
trovando il nome di Mi fra quello delle matrici già in 
memoria, aprirà una finestra dedicata a Mi al termine 
dell’area matrici e aggiornerà il contenuto del vettore 
$0031. 

Il programma BASIC 

Il listato 1 presenta il programma BASIC che sostitui¬ 
sce al vecchio il nuovo comando Dim. 

Dopo il Run una scritta avverte di attendere circa 40 
secondi per il caricamento e l’attivazione del nuovo 
comando. 


La linea 20 ricopia l’interprete BASIC in RAM in modo 
da consentirne le necessarie modifiche (risiedendo l’in¬ 
terprete BASIC in ROM, non è possibile modificarlo 
direttamente). 

La linea 30 modifica l’indirizzo del comando Dim nella 
tabella degli indirizzi. 

Le linee 40, 42 eseguono le modifiche necessarie nella 
routine Dim standard. 

La linea 50 scrive, a partire dall’indirizzo $C000, la 
nuova routine Dim. 

Dopo aver effettuato un controllo sulla correttezza dei 
valori dei DATA letti nel programma (linea 52), la linea 
60 seleziona l’area RAM in cui è scritto il nuovo inter¬ 
prete e, dopo averne comunicato l’abilitazione, libera 
completamente l’area BASIC che resta interamente a 
disposizione dell'utente (la nuova routine occupa 140 
byte di memoria nell’area $C000 -f- $C08C). 

Nel listato 2 è riportato il disassemblato della nuova 
routine con i relativi commenti: bibliografia essenziale 
“Il S.O. del CBM 64” della EVM. 

Si tenga presente che è possibile tornare in qualsiasi 
momento al BASIC originale digitando Pokc 1,55 op¬ 
pure premendo contemporaneamente i tasti Run/Stop e 
Restore. 

Per ripassare dal BASIC originale a quello modificato, 
occorre invece digitare Poke 1,54. 




















Type Writer 
dimensionamento 
_dinamico 


Listato 1 - // programma BASIC. 

0 rem ***************************** 


1 REM * * 

E REM *** DIM DINAMICO PER C.64 *** 

3 REM * * 

4 REM * DI * 

3 REM * MAURIZIO POOLINELLI * 

6 REM * VIA MAGELLANO, 15 * 

7 REM * 20094 CORSICO MI * 

8 REM * TEL. <02)4407707 * 

9 REM * * 


10 REM***************************** 

12 PRINT"C<1CLR>]I<1CRSR D >I"3PC <5 > s FORI * 
0TO28 SPRINT"**; '• NEXT i PR INT 
14 PRINTSPC<5> **** DIM DINAMICO PER C.64 
***’ 

16 PRINTSPC<5)s FORI=0TO28 sPRINT“*";:NEXTs 
PR INT 

18 PRINT*C<1CRSR D> 3ATTENDI CIRCA 40 SECO 
NDI, PREGO ! " 

19 REM *** RICOPIA BASIC IN RAM *** 

20 FORI=40960TO49151sPOKEI,PEEK<I)«NEXT 

29 REM *** MODIFICA INDIRIZZO DIM *** 

30 POKE40984 ,21POKE40985,192 

39 REM *** MODIFICA DIM STANOARD *** 

40 P0KE45649,76 s POKE45650,21* P0KE45851,19 
2 

42 P0KE43182,76 s P0KE45183,0> P0KE43184,192 

49 REM *** LETTURA NUOVA ROUTIKE *** 

50 A=0 : FOR I =49 152T049292: READNs A«=A+N: POKE 
I,NiNEXT 

52 IFA< >179G5THENPRINT*I<1CLR>IC <1CRSR D> 
IERRORE NELLE ISTRUZIONI DATA!*iEND 

59 REM *** ABILITA IL NUOVO BASIC *** 

60 POKE1,34 SPRINT*I<1CLR>JC<1CRSR 0>1NU0V 
0 BASIC ABILITATO!“SNEW 

70 END 

99 *** NUOVA ROUTINE DIM *** 

100 DATA32,253,174,165,122,141,19,192,165 
,123,14t,20,192,32,121,0,76 

110 DATA 129,176,234,234,208,17,32,148,177 
,165,11,160,4,209,95,208,3 

120 DATA76,234,178,76,69,178,200,177,95,1 
33,88,24,101 ,95,133,90,200 

130 DATA 177,93,133,89,101,96,133,91 ,36,16 
5,49,229,90,133,34,165,50 

140 DATA22S,91,133,33,170,160,0,240,14,17 
7,90,145,95,200,208,249,230 
150 DATA88,230,96,202,208,242,163,34,240, 
9,177,90,145,95,200,196,34 

160 DATA208,247,56,165,49,229,88,133,49,1 

65,30,229,89,133,50,104,104 

170 DATA 104,104,198,1I,208,250,173,19,182 

,133,122,173,20,192,133,123,32 

180 DATA 121,0,76,129,176 



Listato 2 - Il disassemblalo commentato della nuova 

routine. 

C000 JSR $AEFD 

Comando "DIM" dinamico. 

SYNTAX Error se il carattere non è 

C003 LDA $7A 

Indirizzo carattoro corrente 

C005 STA SCO13 

C008 LDA S7B 

COCA STA SCOI'. 

in SCOI 3, SCOI4. 

COOD JSR $0079 

Prendi il carattere corrente 

COIO JMP $B08l 

e salta al comando "DIM" atandard. 

COI 3 00 00 

Registri di momoria indirizzo car. corrente. 

COI 5 BNE $0028 

Rientra dal comando "DIM" standard so 
l'array da dimensionare era già stato 
dimensionato in precedenza. 

Contonuto dei registri: 

A = SOC 

Y = *$02 

$5F, $60 a indirizzo inizio array da ridimensionare. 

Se si tratta di dimensionamento, vai a ... $0028. 

COI? JSR $B194 

Calcola 11 puntatore al corpo doll'nrray. 

C01A LDA SOB 

Se il numero di dimensioni 

C01C LDY #}0'. 

C01E CMP ($5F),Y 

è diverso da quello dichiarato 

C020 BNE $C025 

allora oalta a ... $C025l 

C022 JMP $B2EA 

altrimenti calcola il riferimento all'elemento 

C025 JMP $8245 

BAD SUBSCRIT Error. doli'array. 

cosa nnr 

Procedura di ridimensionamento. 

Memorizza in $ 58 , $59 la lunghezza 

C029 LDA ($5F),Y 

della motrice da ridimensionare, e 

C02B STA $58 

in $5A, $5B l'indirizzo iniziale della 

C02D CLC 

C02E ADC S5F 

C030 STA S5A 

C032 INY 

C033 LDA ($5F),Y 

C035 STA $59 

C037 ADC $60 

C039 STA $5B 

array successiva. 

C03B SEC 

Memorizza in $22, $23 la 

C03C LDA $31 

C03E SBC $5A 

0040 STA $22 

C042 LDA $32 

C044 SBC $5B 

0046 STA $23 

lunghezza dell'area da traoforire. 

0048 TAX 

X = n.ro di pagine da trasferire. 

0049 ldy #$00 

Y = K$00. 

C04B BEO ÌC05B 

Trasferimento del blocco di memoria. 

$5A, $5B = indirizzo inizio sorgente. 

$31, $32 « indirizzo fine sorgente. 

$5F, $60 n indirizzo inizio destinazione. 

X = n.ro pagine (256 bytea) da trasferire. 

$22 = rosto da trasferire. 

Il byte più basso viene trasferito per primo. 

Se lunghezza area < 256 , trasferisci il resto. 

C04D LDA ($5A),Y Prendi il carattere dalla aorgente 

C04F STA ($5F),Y 

e memorizzalo a destinazione. 

C051 INY 

C052 BUE $C04D 

Continua fino a fine pagina. 

C054 vie $58 

Aggiorna indirizzo pagina aorgente 

C05é UIC té0 

e indirizzo pagina destinazione. 

CO 58 DEX 

C059 BUE SC04D 

Esegui por tutte le pagine da trasferirò. 

C05B LDA 122 

Se il resto è e 0, 

C05D BéX) $0068 

fine trasferimento. 

C05F LDA ($5A),Y Prendi il carattere dalla aorgente 

0061 STA ($5F),Y 

e memorizzalo a deotinazione. 

C063 IHY 

C064 CPY $22 

Esegui fino alla 

0066 BUE $C05F 

fine del resto. 

C068 SBC 

Aggiorna il vettore $0031 

C069 LDA $31 

che punta all'indirizzo 

C06B SBC $58 

COéD STA $31 

C06F LDA $32 

C071 SBC $59 

C073 STA $32 

di fine array. 

C075 PLA 

Svuota lo atack 

C0?6 PLA 

a seconda del 

C077 PLA 

C078 PLA 

C079 DEC $0B 

C07B BUE $0077 

n.ro di dimensioni dell'array. 

C07D LDA IC013 

Ripristina in $7A, $7B 

C080 STA $7A 

l'indirizzo del 

C082 LDA SCO14 

C085 STA $7B 

carattoro corrente dol "buffer". 

C087 JSR $0079 

Prendi il carattere corrente 

C08A JMP $B08l 

ed esegui il "DIM" standard 


(ridimensiona l'array). 
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TEXAS TI99/4A 


Recupero degli errori 

di Sergio Borsani 

Un buon programma dovrebbe essere in grado di 
sopravvivere a tutti i tentativi, più o meno consapevoli, 
di portarlo in una condizione d’errore. In un certo senso 
il programmatore deve prevedere ogni possibile rispo¬ 
sta, da parte dell'utente, che possa causare la comparsa 
di un messaggio d’errore e il conseguente blocco del 
programma. In questo compito, non sempre facile, il TI 
Extended BASIC viene in aiuto con due istruzioni: On 
Error e Cali Err. 

La prima esiste in due formati: On Error Stop e On 
Error n, dove n è un appropriato numero di linea. La 
parola chiave Stop ha valore di default e fa in modo che 
appaia il solito messaggio dopo il quale il programmasi 
arresta; nè più nè meno di quello che avviene normal¬ 
mente. Ben diversamente agisce il secondo formato. 
Esso permette di inviare il controllo ad una subroutine, 
come fa una Gosub, in modo da poter visualizzare un 
qualsiasi messaggio e poi procedere nell'esecuzione del 
programma. 

L’istruzione On Error n deve essere ripetuta ogni volta 
che si incappa in un errore per cui il punto più ovvio 
dove inserirla in un programma è il menu principale che 
costituisce un passaggio obbligato. La routine che gesti¬ 
sce l’errore, come tutte le subroutine, termina con l’i¬ 
struzione Return. Tuttavia, a differenza di quanto av¬ 
viene con una Gosub, lo statement Return può assume¬ 



re tre formati: Return da solo, Return -f numero di linea 
e Return Next. Return fa tornare il programma alla 
linea che ha causato l’errore. Return + numero di linea 
trasferisce il controllo a quel numero di linea. Return 
Next fa riprendere la esecuzione del programma dalla 
linea successiva a quella che ha causato l’errore. Nel 
caso si specifichi un numero di linea, il programma 
potrebbe opportunamente tornare al menu dove verreb¬ 
be eseguita nuovamente l’istruzione On Error prima di 
proseguire in una qualsiasi sezione di lavoro. 
Naturalmente questa è solo una proposta e nulla vieta 
una diversa strutturazione. 

La subroutine che viene chiamata in caso di errore, 
invece di limitarsi ad inviare un messaggio generico, può 
essere potenziata e resa in grado di specificare all'utente 
il tipo di errore e la linea di programma nella quale si è 
verificato. Ciò è reso possibile dall’uso dell'Istruzione 
Cali Err. La sintassi completa è: Cali Err (codice, tipo 
[,x,numero di linea]). Quando nel programma viene 
commesso un errore c viene eseguita una Cali Err la 
prima variabile numerica tra parentesi contiene il codice 
dell’errore. Il suo significato è reso esplicito nell’Appen¬ 
dice N del manuale del BASIC esteso, a partire da pag. 
212. Se si caricano in una tabella alcuni codici ed i 
corrispondenti messaggi d’errore, la subroutine diventa 
in grado di indicare all’utente il tipo di errore che è stato 
commesso. La seconda variabile tra parentesi assume 
solitamente un valore negativo. Se il codice d’errore è il 
130, allora essa indica il numero del file causa dell’erro¬ 
re. La terza variabile ha sempre il valore 9. 

La quarta, infine, specifica il numero della linea di 
programma nella quale si è verificaio l’errore. Le ultime 
due variabili tra parentesi sono facoltative, pertanto 


260 DISPLAY AT<24,10):"SCELTA?" :: ACCEP 
T AT(24,18)SIZE <1>VALIDATE("123456"):BC* 
270 ON VAL<SC*>GOTO 280,310,340,370,400, 
430 

280 CALL CLEAR : : DISPLAY AT<1,1):"QUEST 
A SEZIONE CONTIENE UN ERRORE DI INPUT/O 
UTPUT." : : GOSUB 530 

290 OPEN #4:"IEEE 488" :: PRINT #4:"TI-9 
9/4A" 

300 END 

310 CALL CLEAR :: DISPLAY AT<1,1):"QUEST 
A SEZIONE CONTIENE UNA ISTRUZIONE DOVE V 
IENE CONEU-SA UNA STRINGA CON UN NUMERO" 
: : GOSUB 530 
320 A4>=99999 
330 END 

340 CALL CLEAR :: DISPLAY AT<1,1):"IN QU 
ESTÀ SEZIONE SI TENTA DI LEGGERE DATI D 
A UN FILE CHE NON ESISTE." :: GOSUB 530 
350 INPUT #1s A$ 

360 END 

370 CALL CLEAR :: DISPLAY AT<1,1):"IN QU 
ESTÀ SEZIONE UNA GOSUB MANDA IL PROGRAMM 
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A AD UNA LINEA INESISTENTE." :: GQSUB 
530 

380 GOTO 32767 
390 END 

400 CALL CLEAR :: DISPLAY AT(1,1>:"IN QU 
ESTÀ SEZIONE VIENE USA-TA COME VARIABILE 
UNA PAROLARISERVATA." :: G05UB 530 
410 MAX=999 
420 END 

430 CALL CLEAR ss DISPLAY AT<1, 1 > : "IN RU 
ESTÀ SEZIONE SI PUÒ" VERIFICARE UNA CO 
NDIZIONE DIERRORE CON LA FUNZIONE LOG." 
440 DISPLAY AT(6,1):"ESSA SI VERIFICA QU 
ANDO SI PONE A<0." 

450 DISPLAY AT (.10, 1 ): "SCRIVI UN NUMERO." 
460 DISPLAY AT(12,1)BEEPs"A «" ss ACCEPT 
AT(12,5)VAL IDATE(NUMERIC); A 
470 L=LOG(A) 

480 DISPLAY AT<14,1>:"IL LOGARITMO DI";A 
; "E ' " ; L 

490 DISPLAY AT(24,2>:"- VUOI CONTINUARE? 
(Y/N) 

500 CALL KEY <0, K, S) : : IF S=>0 THEN 500 

510 IF K=89 OR K=121 THEN 430 

520 IF K—7B OR K=110 THEN 220 ELSE 500 

530 FOR TIME*»1 TO 1000 :: NEXT TIME ss R 

ETURN 

540 CALL ERR (X ,Y, W ,Z ): s FOR J=1 TO 5 : : 

IF X=EC( J)THEN 560 

550 NEXT J ss DISPLAY AT(20,1>:"* ERRORE 
!" : : GOTO 570 

560 DISPLAY AT(20,1):"* ";EM*(J) 

570 DISPLAY AT(21,3)s"ALLA LINEA";Z 
580 DISPLAY AT(24,6):"<PREMI UN TASTO>" 
590 CALL KEY(0,K,S)s: IF S™0 THEN 590 EL 
SE RETURN 220 


l'istruzione può essere scritta o nella forma Cali Err (X, 
Y) oppure nell’altra Cali Err (A,B,C,D). 

Non è superfluo ricordare che le istruzioni On Error e 
Cali Err formano un abbinamento veramente utile al 
programmatore nella fase di debug di un programma. 
Infatti, se si dovesse subire uno stop ad ogni errore, si 
dovrebbe ripartire con il Run azzerando così tutte le 
variabili presenti in quel momento con il risultato che si 
dovrebbero introdurre nuovamente i dati di prova. Re¬ 
cuperando gli errori si può invece proseguire con i con¬ 
trolli e le verifiche senza perdere tempo prezioso. 

Il breve programma del listato 1 vuole semplicemente 
schematizzare i concetti su esposti mostrando come per 
alcuni errori possa essere mandato un messaggio speci¬ 
fico, per altri un messaggio generico. Il programma è 
strutturato in sei parti selezionabili dal menu; ognuna 
contiene un diverso errore. 

NeH’ultima, la sesta, l’errore è conseguente al valore 
inserito dall’iitente in input; infatti la funzione matema¬ 
tica Log, lì presente, non ammette argomenti negativi o 
uguali a zero. 

Le istruzioni Data poste nella parte iniziale del pro¬ 
gramma contengono alcuni codici ed i corrispondenti 
messaggi d’errore. Alla linea 210 i dati vengono caricati 
in due vettori. 

Le linee 220-270 costituiscono il menu e contengono 
l’istruzione On Error 540. Seguono le sei sezioni con 
altrettanti errori che altrimenti avrebbero causato uno 
stop del programma. La subroutine che li gestisce inizia 
alla linea 540 ed occupa tutta la parte restante, fino al 
termine. La stessa linea 540 contiene l’istruzione Cali 
Err ed il ciclo per la ricerca in tabella del codice indivi¬ 
duato dalla variabile X. 


SINCLAIR ZX SPECTRUM 


Extended BASIC 

di Marcello Spero 

Fra le possibilità offerte dall'Interfaccia I, il cui scopo 
principale è quello di controller per i microdrive, c’è 
anche quella, meno nota, di estensione del vocabolario 
BASIC dello Spcctrum. 

Quello che vedremo questa volta è un metodo per otte¬ 
nere il medesimo risultato senza l’ausilio dell'interfac¬ 
cia. 

È appena il caso di ricordare i vantaggi offerti dalla 
possibilità di disporre di un certo numero di istruzioni 
su misura, create apposta per risolvere i nostri problemi 
specifici. 

Istruzioni per la grafica, tool kit. aiuti per la verifica e la 
correzione dei programmi, non sono che un pallido 
' esempio. 


Per ragioni che vedremo in seguito, tutti i nostri nuovi 
comandi ed istruzioni devono avere la caratteristica di 
provocare immediatamente (cioè con il loro primo ca¬ 
rattere) un errore al normale controllo di sintassi opera¬ 
to dall’interprete in ROM. Due sono i metodi possibili 
per ottenere questo. 

Uno, più semplice, consiste nello scegliere come primo 
carattere una delle parole BASIC, da Rnd a Step, otteni¬ 
bili per mezzo del Symbol Shift. In questo modo si 
aggira il modo “K”, e si ottiene un sicuro errore. 

Il secondo metodo, più elegante ma più complesso, 
consiste nell’iniziare la nostra istruzione con un caratte¬ 
re che provochi l’uscita dal modo “K”, e quindi com¬ 
porre il nome della nuova istruzione lettera per lettera. 

Un’istruzione che provoca lo “scrolling” laterale del¬ 
lo schermo, ad esempio, può essere realizzata con: 

STEP d,5 

(per uno spostamento verso destra di 5 pixel, ad esem¬ 
pio) con il primo metodo, o con: 
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ROM PRINCIPALE 


ROM 

INTERFACCIA 


RAM 



Figura 1. H passaggio de! coni rollo di sintassi con l’Interfaccia / collegato. 


&scroll d,5 

(sempre per uno spostamento a destra di 5 pixel) con il 
secondo. In quest’ultimo caso il carattere potrebbe 
essere sostituito da uno qualsiasi dei caratteri che si 
ottengono con Symbol Sliift, e quindi anche in modo 
“K”; I’“&” è stato scelto solo per ragioni di tradizione. 
Vediamo adesso qual è il procedimento utilizzato dal- 
l’interfaccia I per consentire all’utilizzatore di inserire le 
proprie estensioni al BASIC, poiché è proprio emulan¬ 
do questo procedimento che si giunge ad ottenere la 
stessa possibilità sulle macchine sprovviste di tale inter¬ 
faccia. 

La caratteristica comune a tutte le nuove istruzioni o 
comandi deve essere abbiamo detto, quella di provocare 
un errore durante l’esame da parte dell’interprete BA¬ 
SIC. Il verificarsi di un errore, infatti, provoca sempre 
l’esecuzione di una Rst 8, istruzione in linguaggio mac¬ 
china che provoca l’inserimento dell’Intcrfaccia I. A 
questo punto l’istruzione risultata errata viene nuova¬ 
mente esaminata, questa volta dall’interprete contenuto 
nella ROM dell’interfaccia. Se a questo secondo esame 
risulterà corretta (come avverrà nel caso delle nuove 
istruzioni da usare con l’interfaccia, come Cat, Format, 
Move, ecc.), l’istruzione sarà accettata, o nel caso si 
tratti di un comando diretto, eseguita. 
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Può darsi invece che l’errore resti tale anche dopo il 
secondo controllo; in questo caso si avrà un ritorno alla 
ROM principale, all’indirizzo specificato dalla nuova 
variabile di sistema Vector. 

L’aggiunta di nuove istruzioni per mezzo dell'Interfac¬ 
cia I si basa sulla modifica del valore contenuto in 
questa variabile, in modo da provocare un ritorno non 
alla ROM principale, in corrispondenza della routine di 
errore, ma ad un determinato indirizzo in RAM in cui 
avremo collocato un nostro interprete, che eseguirà un 
terzo esame dell’istruzione o comando incriminato. 
Essendo la variabile Vector l’unico punto in cui l’inter¬ 
prete BASIC dello Spectrum è vettorizzato (possiede 
cioè per una sua routine un indirizzo modificabile), ed 
esistendo questa variabile solo con l’inserimento del¬ 
l’Interfaccia 1, da molti è ritenuta impossibile l’estensio¬ 
ne del BASIC senza l’aggiunta di hardware supplemen¬ 
tare (l’Interfaccia I, appunto). 

Tale estensione è invece perfettamente possibile anche 
per coloro che non possiedono la famigerata (e costosa) 
interfaccia. 

Per comprendere come ciò sia possibile, occorre esami¬ 
nare brevemente la meccanica del controllo di sintassi 
operato dall’interprete BASIC, ed in particolare ciò che 
avviene in caso di errore, sempre nelle macchine sprov- 
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viste di Interfaccia 1 od al ritorno alla ROM principale, 
tramite Vector, dove l’interfaccia è presente. 

Il verificarsi di un errore, sia durante il controllo di 
sintassi che in fase di esecuzione del comando o istruzio¬ 
ne, provoca una serie di operazioni. 

• L'indirizzo raggiunto dall’interprete', contenuto nella 
variabile di sistema CH ADD, è copiato nel puntatore 
di errore, la variabile X PTR. 

• II codice dell’errore viene posto nella variabile ERR 
NR. Il codice è sempre inferiore di uno a quello del 
messaggio corrispondente; sarà cioè 255 per 0, OK e 11 


per C, Nonsense in BASIC. In particolare, qualsiasi 
comando o istruzione non riconosciuto produrrà un 
codice di errore uguale ad 11, e questo sia in fase di 
controllo della sintassi che in fase di esecuzione. 

• Il puntatore alla catasta di sistema (cioè il registro SP 
dello Z80, lo stack pointer) viene caricato con il valore 
presente nella variabile di sistema ERR SP, venendo in 
tal modo a puntare al primo elemento della catasta. 

• La catasta del calcolatore e l’area di lavoro del sistema 
vengono ripulite. 

• L’istruzione in linguaggio macchina Ret rimuove dalla 


ROM 


RAM 


VARIABILI I 



\ 


> 


ROUTINE 

INTERPRETE 


Figura 2. // passaggio de! controllo di sintassi senza l’Interfaccia I. 
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catasta del sistema l’elemento cui punta SP, e compie un 
salto all’indirizzo da lui indicato. 

Durante il controllo della sintassi, questo indirizzo è 
normalmente 12B7 Hex, che corrisponde alla serie di 
routine che provocano la visualizzazione della linea 
incriminata con un punto interrogativo lampeggiante in 
posizione appropriata. 

Durante l’esecuzione, invece, questo indirizzo è 1303 
Hex, corrispondente alla routine che produce il messag¬ 
gio di errore. 


Listato 1. Assembly della routine di estensione 
deI BASIC e dell'interprete per la nuova istruzione. 


or 9 50001 

* 

‘La routine va posta subito al 
di sopra detta RRMTOP 


equ 23610 ERR NR 
equ 23645 CH RDD 
equ 23641 E LINE 
equ 23693 RTTR P 
equ 23624- BORDCR 
equ 23730 RRHTOP 


'Il codice di errore e' 111 
(C NON5EN5E IN BASIC.' ? 


1STHPT 


50001 3Pi 3 FI 50 
50004- FE 0B 

50006 £8 23 

* 


l d a , (ERR 
CP 11 
J r Z /ERRO 


NR) 


bit 7 della va 
ttato in fase 


01 7E 



r i a bi le FLRGS 
di esecuzione 


bi 

Jr 


t 7, tiy+i) 
nz.RUNERR 


Errore di sintassi. 

L'indirizzo di inizio della 
routine (RRMTOP+-1) e' posto 
sulla catasta., e si torna alia 

RQH„, 

ld hi. (RRMTOP) 
ine hi 
push hi 
jp &12b7 


50014 2R 82 50 

50017 23 

50018 E5 

50019 03 B7 12 


'Errore in esecuzione. 

Oiene prodotto il Messaggio e 
sono rimesse le for#« 
"floating point" dei numeri 
prima di eseguire le stesse 
operazioni di SINTERR 


RUf iE ^ H 


50022 CD 
50025 FD 
50029 2R 
50032 CD 
50035 2fl 

50038 23 

50039 E5 

50040 C3 


03 13 cali 41303 

36 00 FF ld (iy+B).2S5 

59 50 ld hi.(E LINE) 

07 11 call4lla7 

B2 50 ld hi.(RRMTOP) 

ine hi 
push hi 

84 12 JP À12b4 


'Si tratta di &cls? 

Uiene eseguito un controllo 
carattere per carattere, 
dando errore in caso di 
mancata corrispondenza 


50043 

2R 

50 

50 

ld hi.(CH RDD) 

50046 

28 



dee hi 

50047 

22 

5D 

50 

ld (CH RDD) .hl 

50050 

DF 



rs t 24 

50051 

FE 

26 


CP 38 

50053 

20 

DI 


jr nz.ERROR 

50055 

E7 



rs t 32 

50056 

FE 

63 


CP 99 

50058 

20 

OC 


Jr nz.ERROR 

50060 

E7 



rs t 32 

50061 

FE 

60 


CP 108 

50063 

20 

C7 


jr nz error 

50065 

E7 



rs t 32 

50066 

FE 

73 


CP 115 

50068 

20 

02 


jr nz.ERROR 

50070 

E7 



rs t 32 

50071 

FE 

0D 


CP 13 

50073 

28 

04 


j r z.OK 

50075 

FE 

3R 


CP 58 

50077 

* 

20 

89 


j r nz.ERROR 

' 5e la 

pa ro l a e' 

4c is ed e ' 

segui 

t a 

da 

ENTER 

o le 

variabi 

li ERR NR 

e X PTR 

sono 

aggi orna te 

ad indicare 

"nessun 

errore". 


In fase 

d i 

esecuzione si 


passa ad EXEC. al 
ri torno alla ROM. 


)079 
50083 
50087 
50091 
50093 

50096 

50097 

50098 

50101 

50102 


FD 36 00 FF 
FD 36 26 00 
FD CB 01 7E 

20 0O 

2R B2 50 

23 

E5 

21 87 12 
E5 

03 76 1B 


ld(iy+00).255 
ld (iy+38) .0 
bit 7. (i y +1) 
jr nz ,EXEC 
ld hi. (RRMTOP) 
ine hi 
push hl 
ld hi. &12b7 
PUSh hl 
JP 41b76 


Le variabili che contengono 

S ii attributi di schermo e 
order vengono modificate 
opportunamente, e quindi 
sono eseguiti i comandi 
BORDER e CL5. 


_jS 3E 07 

50107 32 8D 5C 
50110 32 48 50 
50113 3E 00 
50115 D3 FE 
50117 C-D 6B OD 


l d a . 7 
ld (RTTR P> 
ld (BOR0C.R) 
l d a . 0 
ou t (254) .a 
cali &0d6b 


a 

a 


'Ri torno alia ROM 
ripristinato in c 
l ' i ndirizzo della 
50120 2R B2 50 

50123 23 

50124 E5 

50125 03 76 18 


dopo aver 
a t as t a 
routine 
ld hi. (RRMTOP) 
ine hi 
push hl 
Jp 41b76 


Appare chiaro a questo punto che la presenza all’inter¬ 
no della catasta di sistema dell’indirizzo di errore rap¬ 
presenta un analogo della variabile Vector. e quindi di 
fatto una vettorizzazione deH’interprete principale. 
Sostituendo questo indirizzo con quello di una nostra 
routine in linguaggio macchina con funzione di inter¬ 
prete per quanto riguarda la o le nuove istruzioni da noi 
introdotte, introdurremo la possibilità di un secondo 
esame, esattamente come avviene con l’Interfaccia I. 

Il listato I chiarirà senz’altro meglio tutto il procedi¬ 
mento. 

Si tratta infatti della routine destinala a determinare il 
tipo di errore, provocando altrimenti un ritorno alla 
ROM principale all’indirizzo opportuno, diverso a se¬ 


llo 















Extended BASIC_ 

conda che il sistema si trovi in fase di controllo di 
sintassi o in fase di esecuzione. Prima di provocare il 
ritorno vero e proprio, inoltre, la routine colloca nuova¬ 
mente sulla catasta di sistema il proprio indirizzo, in 
modo da assicurare il proprio inserimento al successivo 
errore. 

La parte relativa al controllo di sintassi ed all’esecuzio¬ 
ne della o delle nuove istruzioni è invece variabile, a 
seconda di ciò che si vuole ottenere. Come esempio è 
stata inserita una routine che interpreta ed esegue un’i¬ 
struzione molto semplice: 

&cls 

Questa nuova istruzione è stata costruita a somiglianza 
di: 

CLS # 

presente nel set esteso del BASIC dell’Interfaccia 1, che 
oltre a ripulire lo schermo ne ripristina le condizioni 
definite “normali”: sfondo bianco, caratteri neri, lam¬ 
peggio e luminosità a zero. 

La nostra nuova istruzione si comporta in modo 
simile, tranne per il fatto che le condizioni di schermo 
introdotte sono: sfondo nero, caratteri bianchi. Lumi¬ 
nosità e lampeggio vengono sempre azzerati. 

La scelta di questa combinazione di schermo non è 
casuale, ma riflette la constatazione che caratteri chiari 
su di uno sfondo scuro danno una visione molto ripo¬ 
sante, per lo meno utilizzando un televisore. 

Come potete notare esaminando il listato 1, la parte più 
complessa è quella relativa alla verifica della sintassi, 
dovendo questa essere fatta lettera per lettera. Per otte¬ 
nere, uno dopo l’altro, i caratteri che compongono l’i¬ 
struzione, è stata usata la medesima routine utilizzata 
dall’interprete “vero” per questa operazione. 

Questa routine possiede due punti di ingresso, accessibi¬ 
li con le istruzioni Rst 24 ed Rst 32 (che equivalgono a 
Rst 18 ed Rst 20 espresse in esadecimale). 

Con il primo si ottiene di ritorno, nel registro A dello 
Z80, il codice del carattere indirizzato dalla variabile di 
sistema CH ADD o, se questo non è utile ai fini dell’in¬ 
terpretazione (spazio, codici di colori, ecc.), del primo 
carattere utile. In questo caso CH ADD viene fatta 
avanzare. 

Con il secondo punto di ingresso si ottiene invece un 
avanzamento preliminare di CH ADD, prima di esegui¬ 
re le medesime operazioni di recupero ed eventuale 
avanzamento. 

Poiché, al momento del verificarsi dell’errore che trasfe¬ 
risce il controllo alla nostra routine, CLI ADD punta 
sempre al carattere successivo a quello che ha prodotto 
l’errore, basterà decrementare CH ADD di uno per 
ottenere la posizione del primo carattere da controllare, 
che verrà recuperato con Rst 24. I successivi caratteri 
saranno invece recuperati da altrettante Rst 32. 



Per ciascun carattere recuperato viene eseguito un 
controllo, fino ad arrivare al carattere Enter o “:” che 
deve chiudere l’istruzione. In caso di mancata corri¬ 
spondenza viene fatto ritorno alla routine di errore. 

Al termine, se tutto è andato per il verso giusto, le 
variabili di sistema ERR NR e X PTR, indirizzate rispet¬ 
tivamente da (IY+0) e (IY+38), vengono aggiornate ad 
indicare la condizione di “non errore”. Quindi, se la 
variabile Flags, indirizzata da (IY+I) indica con il suo 
bit 7 la condizione di esecuzione, viene eseguito un salto 
alla routine relativa. In caso contrario il controllo torna 
alla ROM, che provvede ad inserire la nuova linea nel 
programma. 

La parte dedicata all’esecuzione è davvero semplicissi¬ 
ma. Si riduce infatti alla modifica del valore delle varia¬ 
bili ATTR P e BORDCR, contenenti gli attributi per 
schermo e border, ed all’esecuzione del cambio di bor- 
der seguita da un Cls. 

Al termine il controllo torna alla ROM, dopo aver 
preparato la catasta per un successivo errore. 

Il listato 2 contiene il codice macchina, di tipo autorilo- 


Listato 2. Codice macchina della routine. 


5», 

£03, 

35, 

£53, 

167, 

180, 

92, 

99, 

231, 

4-0, 

0 , 

1, 

229, 

62, 

62, 

178, 


58, 

1, 

229, 

S4, 

17, 

18 , 

223, 

32, 
254-, 

4-, 

255, 

126, 

33, 

• 7, 

0 , 

92, 


92, 

126, 

195, 

0 , 

4-2, 

4-2, 

254-, 

204-, 

115, 

254, 

253, 

32, 

183, 

50, 

211 , 

35, 


254, 
32, 

183, 

255, 
178, 

93, 

35, 

231, 

32, 

58, 

54, 

12 , 

18, 

141, 

254, 

229, 


11 , 
8 , 
18, 
42, 
92, 
92, 
32, 

254, 

194, 
32, 
38 , 
42, 

229, 

92, 

205, 

195, 


40, 

42, 
205, 

89, 

35, 

43, 
209, 
108, 
231, 
185, 

0 , 

178, 

195, 

50, 

107, 

118, 


35, 
178, 
3 j 
92, 
229, 
34, 
231, 
32, 
254, 
253, 
253, 
92, 
118, 
72, 
13, 
27 


253, 

92, 
19, 

205, 

195, 

93, 

254, 
199, 

13, 

54, 

203, 

35, 

27, 

92, 

42, 


CHECKSUM: 14546 


cante, a condizione che lo si collochi subito al di sopra 
della RAMtop. Si tratta di 127 byte che possono essere 
agevolmente caricati per mezzo del programmino che 
vedete nel listato 3. Questo programma esegue anche il 
controllo sul checksum (cioè la somma dei codici intro¬ 
dotti), in modo da evidenziare eventuali errori. 

Il listato 4 contiene invece il programma di predisposi¬ 
zione della catasta. Va fatto eseguire dopo aver caricato 
il codice macchina per rendere possibile la chiamata 
della routine, che in seguito provvederà da sola al man¬ 
tenimento di questa condizione. 

Dopo aver caricato il codice, fate girare il programma 
e quindi provate la nuova istruzione. 

$cls 


111 













Listato 3. Programma di caricamento del codice mac¬ 
china. 


1 REM *********************** 

PROGRRMMR * 

* DI * 

* CRRICRMENTO * 

* CODICE MRCCHINR * 

* * 
*********************** 

IO LET rtp=PEEK 23730+256*PEEK 
23731 

20 LET Ch«Ck=0 

30 FOR i=rtp+l TO rtP+127 

40 INPUT K 

50 POKE i,k 

60 PRINT i/PEEK i 

70 LET CheCk=CheCk+PEEK i 

80 NEXT i 

90 INPUT "CHECK5UM? j CSU> 

100 IF csu»=check THEN STOP 
110 PRINT TRB 13J FLRSH 1; 

"ERRORE"'' FLRSH 0;TRB 4; 
"RIPETERE IL CRRICRMENTO f 
120 PRINT #0jTRB 7; 

"premere un tasto" 

130 PRUSE 0 

14-0 CLS : GO TO 20 


Listato 4. Programma di predisposizione della catasta. 


1 REM *********************** 
* * 

* PROGRRMMR * 

* DI PREDISPOSIZIONE * 

* * 
*********************** 


10 

20 

30 

40 


LET Start =PEEK 23730+256* 

PEEK 23731+1 

LET errsp=023613+256* 

PEEK .23614 
POKE arrsp, 

start-256*INT (start/256) 

poke errsp+l A 
INT lstart/256) 


che dovrebbe produrre uno schermo nero e pulito, non¬ 
ché un border nero. 

Volendo a questo punto eliminare il programma di 
predisposizione, cancellare linea per linea senza dare 
New. Ci sono infatti delle istruzioni che provocano il 
ripristino delle condizioni originali di catasta; sono: 
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Formato 16,5x23 
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Non esiste, in lingua italiana, un libro di testo così. Chiaro, completo, 
moderno, ma anche rigoroso e didattico. Sono alcuni tra gli aggettivi 
che costituiscono la prerogativa di questo volume. Per capire 
l’elettronica digitale bisogna avere delle solide conoscenze sui dispositivi 
a semiconduttore, soprattutto usati in circuiti di commutazione. 

E malgrado quest’analisi richieda una notevole complessità matematica, 
introducendo alcune semplificazioni è possibile mantenere la trattazione 
ugualmente rigorosa e ottenere approssimazioni pienamente accettabili. 
Come trascurare poi gli amplificatori operazionali, che. se a rigore non 
rientrerebbero nella materia, però trovano larga applicazione in sistemi 
completamente digitali. E poi i circuiti integrati, finalmente spiegati e 
analizzati in tutti i loro aspetti. Dalla vecchia logica reslstore-transistor 
(RTL), funzionale nella sua semplicità all’esemplificazione degli aspetti 
fondamentali, a quella a simmetria completamente (CMOS). 

Questo, però, dopo aver studiato un capitolo che. pur non richiedendo 
alcuna conoscenza preliminare, va a fondo dei concetti di variabile 
logiche, di algebra di Boole, di analisi di circuiti logici. E ancora. Via via 
nei vari capitoli: i flip-flop. ì registri, e i contatori (sia sincroni che , 
asincroni), I circuiti logici atti ad eseguire operazioni matematiche, le 

memorie a semiconduttore (RAM, ROM. EPROM.). l’interfacciamento 

tra segnali analogici e digitali (multiplexer, circuiti sample and hold. 

convertitori d/a e a/d), i temporizzatori Tutto con oltre 400 problemi, dai 
più semplici ai più sofisticati, in cui vengono presentati i circuiti tipici 
che si trovano nella pratica. 

Un testo quindi non solo per gli specialisti e per gli studenti universitari, 
ma che si adatta magnificamente agli Istituti Tecnici. 

Un testo che. speriamo per gli studenti, la scuola non debba scoprire tra 
alcuni anni. 
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Comparatori; Circuiti Logici; Logica Resistore-Translstore e Logica ad 
Iniezione Integrata; Logica Diodo-Transistore; Logica Transistore- 
Transistore. Logica ad Accoppiamento di Emettitore; Porte MOS; I 
Flip-Flop; Registri e Contatori; Operazioni Aritmetiche; Memorie a 
Semiconduttore; Interruttori Analogici; Conversione Analogico- 
Digitale; Circuiti di Temporizzazione; Linee di Trasmissione; Problemi; 
Alcuni Esempi di Specifiche. 


New, Clear, Run 

Ogni volta che le userete dovrete procedere nuovamente 
alla modifica dall’esterno della catasta. ■ 
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Apple 


Vendo por Apple II “Superloto 1.0**, superprogramma Totocal¬ 
cio Inodito. Tre diverso opzioni di selezioni incrociale (nr. sogni 
1X2 consecutivi, correzione errori) con output nr. colonne utili a 
L 60.000 con manuale. Roberto Rossi - Via Lario. 26 - 20159 
Milano - Tel. 02/6070236 (ore serale) 

Cambio software per Apple II. assicuro una risposta a chiunque 
mi invia la sua lista. Guido Pascale - Via Pasteur. 24 - 34139 
Trieste 

Compro software vario per Apple Ile Inviare elenchi a: Angelo 
Sala - Via Olmi. 7 - 20077 Me legnano (MI) 

Cerco qualsiasi programma per Apple che tratti l'argomento 
BnsebaB • Calcio - Football americano. Cerco anche il pro¬ 
gramma Crush Crumble and Chomp Giancarlo Fedel - Via 
Marconi. 29 bis - 34018 Staranzono (GO) - Tel. 710127 

Occasione. Vendo software per Apple II. Dispongo di più di 80 
programmi tra giochi e Utilities (Tho Last One - Apple Writer II - 
Flight Simulator - ecc ) Disponibili su disco, alcuni con listato. 
Invio gratuitamente la lista dei prezzi Luigi Noschese - Via 
Bollini. 12 - 84098 Pootecagnano (SA) - Tel 098/381121 

Per Apple II cambio, vendo programmi di ogni genere. Concor¬ 
dabili pacchetti di programmi a prezzi speciali. Vendo HP41C 
più modulo RAM (totale 127 reg o 889 byte) a L. 300.000 
Maurizio Mellone - Via Sabbionara. 9 - 36061 Bassano Del 
Grappa (VI) - Tel 0424/20015 

Vendo programmi di ogni genere per Apple II a L. 10.000 
cadauno, compreso il dischetto. Richiedere la lista completa di 
oltre 1.000 titoli. Software per progettisti edili a prezzi contenuti 
Raffaele Castelli - Via dei Campari, 3 • 24020 Gorno (BG) 

■ Valorizzate il vostro Apple cop programmi altamente prò- ■ 

■ fessionali che soddislino ogni vostra esigenza. Massima ■ 

■ serietà, garanzia e celerità nel fornire il materiale richiesto ■ 

■ Luigi Palumbo - Via A Ristori. 8 - 00197 Roma - Tel ■ 

■ 06/802783 ■ 

Per Apple II cerco I seguenti programmi: Logica Simbolica. 
Legionaire. War In Russia. Kmghl Of The Desert. V.C., Diet 
Analysis. Tridi. Programmare in Pascal, Anatomy 1. educazio- 
nali di fìsica e programmi sull’Intelligenza Artificiale. Antonio 
Scala - Via G. Imbroda. 39 • 80035 Nola (NA) • Tel. 
061/8234710 

Cambio software per Apple II • Ilo • Ile. Dispongo di oltre 400 
programmi; mandatemi la vostra lista e vi invierò la mia. Ri¬ 
spondo a tutu Isabella Bottini - Via Galilei, 681 - 18038 Sanre¬ 
mo (IM) - Tel 0184/882095 

Cambio, vendo olire 400 programmi per Apple Possiedo data 
base, molti giochi, gestionali Scrivere a: Paolo Grandicelli - 
Casella Postale 66 - 62012 Civitanova M. (MC) • Tel 
0733/74366 _ 

A A A Affaroni - Vendo 200 programmi Apple professionali a L 
500.000 Carlo Cocciazucca - Via Montesecco. 15 - 65010 
Spoltore (PE) - Tel. 085/207486 _ 

Combio software per Apple. Cerco manuale del programmo 
"The Graphic Solution'" Annuncio valido per le province di 
Torni. Perugia. Macerata. Ascoli Piceno e Ancona Giuseppe 
Albucci - Via Marzabotto. 16 -05100 Terni - Tel. 0744/814147 

Vendo per Apple II Koala Pad usata solo due settimane con 
manuali e dischetto originali a L 300.000 Per informazioni 
rivolgersi a. Luigi TolomeHi - Via Martini, 15- 51016 Montecati¬ 
ni Torme (PT) - Tel 0572/73175 

■ Vendo scheda 80 colonne per Apple Ile al miglior offeren- ■ 

■ lo Tel. 02/498226 ■ 


Commodore 


Cambio, vendo circa 1.000 programmi per C64. fra i quali 
Decathlon. Pittali. Beamitd et. River Raidealln magnifici giochi; 
utility, gestionali, uno più bello dell'altro Solo Milano e zone 
limitrofe Angelo Settembrini - Via Cassanese. 194 • 20090 
Segrate (MI) - Tel. 02/2136514 (dopo le 17.30) 

Compro, cambio, vendo programmi per C64, cerco giochi ed 
Utilities. Inviale la vostra lista con I relativi prezzi. Ringrazio in 
nnlicipo coloro che mi scriverenno. Giovanni Manno - Via 
Ragnaia. 28 - 57012 Casliglioncello (LI) - Tel 0586/753017 

Vendo programmi per Commodore 64 a L 3.000 cadauno 
Richiedere lista telefonando o scrivendo a Borghesi Simone - 
Via Monte Santo. 17 - 53036 Poggibonsi (St) - Tel 
0577/937336 


Cambio, vendo programmi per C64: Legge 373. ingegneria. 
Word Processing, giochi, gestionali (fatture, magazzino, ge¬ 
stione medici, ecc ) o tanti altri. Por ricevere la lista scrivere a: 
Maurizio e Franco Bruno • Via Giorgio Bratti. 100 - 47023 
Cesena (FO) 

Cerco urgentemente il programma Tot 13 per il Commodore 64 
Posso ricambiare con programmi come Tool Kit. Simon's BA¬ 
SIC o molti giochi in linguaggio macchina Solo zona Terni 
Claudio La Rosa - Viale Trento. 46 - 05100 Term (TR) - Tel. 
0744/2844118 _ 

Vendo o cambio cassetta con 20 giochi per V1C 20 inespanso a 
L 20.000. Se volete scambierò mandatemi la vostra lista che vi 
manderò la mia Massima serietà. Annuncio sempro valido 
Giovanni Bongiorni - Via Merosi. 11 - 29100 Piacenza (PC) - 
Tel. 0523/60475 

Compro, cambio, vendo programmi per Commodoro VIC 20 
Ho una nastroteca di circa 120 programmi. Inviate le vostre liste 
e/o richieste a; Cosimo Tantino • Via Luigi Rizzo. 15 • 90010 
Aspra (PA) - Tel. 091/930314 

Cambio programmi per CBM 64 Annuncio sempre valido ft- 
spondo a tutti, telefonare o scrivere a Soiaro Paolo - Piazza 
Medaglie d Oro. 13 - 14100 Asti - Tel 0141/51973 
Vendo, cambio oltre 1.000 programmi per Commodore 64 
Marco Bombonato - Via N. Bixio. 27 - 20129 Milano - Tel. 
02/2 24196 _ 

Per Commodore 64 vendo giochi e utility a prezzi favolosi, 
giochi a L 5.000 massimo, utility a L 20.000 massimo. Vendo a 
L 50.000 20 giochi, a L. 100.000 45 giochi. Si omaggia di Turbo 
Tape per ordini di almeno tre giochi. Walter Mughini - Via 
Boccherini. 7 - 50144 Firenze - Tel 055/367931_ 

Compro, cambio, vendo software per CBM 64 Solo zona Cata¬ 
nia Fabio Bellassai - Via Fratelli Bandiera. 13 - 95100 Catania - 
Tel 095/415353 

Amici, se volete programmi per il vostro CBM 64 scrivetemi e 
potrete ricevere la lista, con prezzi davvero interessanti Bram¬ 
billesca Maria Luisa - Via Gramsci. 23/2 - 20041 Agrate Brlan- 
za (MI) 

Per VIC 20 cambio o vendo programmi in linguaggio macchi¬ 
na Ne possiedo più di 200, di cui alcuni molto belli. Fernando 
Benim - Via E Pazzi. 16 - 48100 Ravenna 

Compro, cambio, vendo cassette con programmi per Commo¬ 
dore 64 Compro giochi e programmi per la scuola ad un prezzo 
non supenore alle L 25 000 Inviare cassetta e lettera o lista a: 
Massimo Dori - Via Dei Molmi - 52037 Sansepolcro (AR) 

Vendo per CBM 64 centinaia di programmi di tutti i generi a 
prezzi stracciati. Stefano Massofi - Via Massan. 10 - 06100 
Perugia - Tel. 075/28983 

Per C64 vendo, cambio programmi di ogni genore (games, 
Utilities) su cassetta I videogames sono in LM. i migliori del 
1984 (Popeye. Decathlon. Zaxxon. ecc ). Annuncio sempre va¬ 
lido Maurizio Borrell! - Via Firenze. 32 - 80100 Napoli - Tel. 
081/281672_ 

Cambio, vendo software di tutti i generi per Commodoro 64 
Elenco di circa 500 titoli tutti di buona qualità (98% in LM). 
Assicuro serietà e rapida risposta a tutti Roberto Quaglia • Via 
Martmazzoii. 2 - 20161 Milano -Tei 02/6462130 

■ Cambio e vendo oltre 1500 programmi per Commodore ■ 

■ 64. Per informazioni scrivere o telefonare a; Marcello Pru- ■ 
| dente - Via Luigi Tripoli. 7/A • 64100 Teramo • Tel. ■ 

■ 086 1/411184 ■ 

■ Per CBM 64 dispongo di manuali tradotti in italiano e ■ 

■ ultime novità (Volo su Mosca, Fast Disk). Marcello Cesi - ■ 

■ Via Magliana Nuova. 178-00146 Roma - Tel. 06/5266009 ■ 

Per CBM 64 cambio, vendo circa 400 programmi prefer burnen¬ 
te su disco. Roberto Manzardo - Via Rossini. 10 • 31029 Vittorio 
V eneto (TV) - Tei 0438/560656 

Cambio, vendo diversi programmi per C64: Miner. Burgerlime. 
Mr Robot Dieci giochi L 15.000, Turbo Tape L. 10.000. 30 
giochi più Turbo Tape L 50.000 Cambierei Utilities; senveto per 
la lista, massima serietà Giancarlo Turbo - Via Ferrovia. 36 - 
81057 Teano (CE) - Tel 0823/875928 

Vendo, ma sopratutto combio, programmi per VIC 20. Ne pos¬ 
seggo molti in linguaggio macchina e BASIC, sia giochi che 
utility. Assicuro massima serietà, rivolgersi a: Michele e Nicola 
Giorato - Via M. Grappa. 11 • 35010 Cadoneghe (PO) - Tel. 
049/704021__ 

Vendo programmi per VIC 20 m versione base ed espanso a 
3-8-16 Kbyte Va cui. Frogger (3 Kbyte). The Frog (versione 
base). Galaxian. QBert (16 Kbyte). ecc. Dispongo inoltre di 
programmi di utilità: Easyword. Maxischermo (8/16 Kbyte) 
Giuseppe Venezia • 10147 Tonno - Tel 011/210071 

Compro, cambio, vendo giochi por C64: Zaxxon. Popeye, Dig 
Dug. International Soccer a L 6.000 cadauno oppure 20 pro¬ 
grammi a L. 53.000 Scriverò o telefonare dalle 20 alle 22 a 
Daniele Noris - Via S Bernardino. 1 / A - 24100 Bergamo - Tel 
035/224500_ 

Si è costituito il Commodore Computer Club per i possessori 
dei CBM 64. Vendiamo giochi su disco e cassetta a L 2 000e L 
1 000. Risponderemo a tutti Angelo Orlandi • Via Delie Albizzie. 
40 • 00172 Roma - Tei 06/288368 


Per C64 cambio, vondo i programmi Football, Totocalcio, 
Grand Prix e un’infinità di bellissimi programmi su cassetta con 
listato. Giovanni Pugliese - Via A. Volta. 93 - 74100 Taranto - 
Tel 099/413769 

Cambio o vendo giochi ed utility per CBM 64 (prezzi estrema¬ 
mente bassi) Richiedere la lista con oltre 1 000 programmi 
scrivendo o telefonando a. Giovanni Melono - Viale Trieste. 33 

- 81022 Casa giovo (CE) - Tel 0823/468497 

Cambio, vendo oltre 200 programmi su disco per Commodore 
64 a prezzi bassissimi Richiedere la lista a: Riccardo Menchetti 

- Via A Canova. 21 58100 Grosseto 

■ Compro, cambio per Commodore 64 qualunque program- M 

■ ma Dispongo di un archivio di oltre 1.500 programmi e di ■ 

■ traduzioni in italiano dei più famosi giochi (es Flight Simu- ■ 

■ lator II). Arrivi giornalieri dall'estero Telefonare ore serali ■ 

■ Massimo Mattloz • Piazzale Accursio. 4 • 20100 Milano - ■ 

B Tel. 02/36737 3_ | 

Desidero contattare appassionati di linguaggio macchina sul 

CBM 64 per scambio idee e informazioni Dispongo di molto 
software e manuali Sono interessato anche al drive 1541 
Massimiliano Marra* - Via Del Serafico. 64 • 00142 Roma • Tel 
06/5912597 


Vendo CBM 64 (un anno di vita), più registratore. 400 program • 
mi a L. 750 000 trattabili Gianluca Tarasconi - Via Properzio. 3- 
20135 Milano • Tel 02/57410 

■ Vendo VIC 20, registratore C2N. espansione 8 Kbyte, tri- ■ 

■ slot. 3 cartucce. 7 libri. Regalo inoltre 11 cassette con molti ■ 

■ giochi e utility in LM Tutto in ottime condizioni a L.I 

■ 250.000. Luca Dal Molin - Via G. Mazzini. 24 - 36030 ■ 

■ Rettorgole (VI) - Tel 0444/985673 ■ 

Cambio, vendo per Commodore 64 oltre 1.000 programmi a 
prezzi stracciati Dispongo di utility e games Telefonare o 
scrivere a: Giangualtiero Guidetti - Via Cigna, 86-10152 Torino 

- Tei. 011/288272 

Per CBM 64 cambio programmi, sia giochi che Utilities. Rispo¬ 
sta assicurata a chiunque invia la propria lista a: Maria A. Monti 

- Casella Postale 45 - 55052 Fornaci di Barga (LU) 

Per C64 compro, cambio, vendo giochi e utility a L 3.000 l’uno 
tra cui Simon's BASIC, The Hobbii, Get Of My Garden, Decath¬ 
lon. Baseball. One On One. Totocalcio. Acquisto minimo due 
programmi Andrea Pecora - Via 2 Giugno. 16 - 52042 Camucia 
(AR) - Tel. 0575/62547 

Occasione! Causa cambio computer, vendo 10 dischetti com¬ 
pletamente registrati su entrambe le facciate per C64. con più 
di 130 programmi nuovissimi Massimo Proia - Via Pubblico 
Passeggio. 16 - 29100 Piacenza - Tel. 0523/32417 

Vendo programmi por geometra per C64. Esempio: travi conti¬ 
nue. teoria, errori, carnot, semi, nepero. ecc. Li preparo anche 
su richiesta, accompagnati da videogiochi a prezzi accessibi¬ 
lissimi. Michele Costanzo • Via Vittorio Emanuele. 386 - 90134 
Palermo - Tel 091/335175 

Cambio, vendo per C64 una cassetta contenente 6 programmi 
in Turbo Tape (Polo Position. Zaxxon. Qix. Sam-Reciter. Don- 
key Kong. Juice) a soie L 10 000 escluso spese di spedizione 
Massima serietà. Luca Dell'Anna - Via Avellino. 12 • 73100 
Lecce - Tet 0832/591157 

Vendo per VIC 20: Cabinet 6 slot a L. 200.000, super expander 
più 3 Kbyte a L 35 000. sintetizzatore vocale L. 140.000. 16 
Kbyte a L. 60.000 e VIC 20 a L. 110.000. Tutlo in ottime condizio¬ 
ni. Telefonate dopo lo 1 4 oppure scrivete a: Beppe De Vanna • 
Via Fontanelle II. 8 • 70057 Polese (BA) - Tel 080/320427 


Vendo programmi per VIC 20: cassetta con 70 programmi In 
versione baso a L 30.000 o cassetta con 25 programmi 8 Kbyte 
a L 30.000. A scelta giochi o utility. Luciano Baglioni • Via Della 
Verna. 20 - 00141 Roma - Tel 06/8185710 

Compro, cambio, vendo programmi per CBM 64 Vorrei fonda¬ 
re un club. Matteo Oliviero - Via Marconi - 80056 Ercoiano (NA) 

- Tel 7393829 

Vendo circa 160 programmi per C64 a sole L. 1.500 l’uno 
(minimo 10). a tutti regalo Turbo Tape. Qualche titolo: Hobbit. 
Zaxxon. BC. Buck Rogers, Pittali. Decathlon, Beam Rider, 80 
Colonne. Magic Desk. Koala Pamter. Davide Rolando • Via B 
Ottaviano. 6/6 - 17100 Savona - Tel. 019/26949 

Cambio oltre 300 programmi per Commodore 64. sia utility che 
giochi Richiedete e inviate la lista a Cesare Boncompagni • 
Via Piave. 22 - 57013 Rosignano Solvay (LI) - Tel 0586/76157 

Cambio, vendo programmi per CBM 64 Dispongo di olire 500 
programmi che vendo a prezzi trnson. specialmente in blocco. 
Specificare il supporto (nastro o disco) Annuncio sempre vali¬ 
do Scrivere a Alessandro Stoppaccioli - Via Vasco De Gama. 
13 - 06034 Foligno (PG) - Tel 0742/52413 

Causa cessata attività svendo per Commodoro 64 Easy Script 
più manuale a solo L. 35.000(pagati L 70.000). Roberto Bianchi 

- Via Ardigò. 1 - 20052 Monza (MI) - Tel. 039/360493 

Al miglior offerente vendo CBM 64 più floppy, monitor, datacas- 
sette e tutto il miglior software su disco. Materiale nuovo, con 
solo 4 mesi di vita e ancora in garanzia Disponi bile per qualun¬ 
que prova. Luigi Roberto Callegari - Via Alcide De Gasperi. 47 - 
21040 Sumirago (VA) - Tel 0331/909183 
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Gabriele Ugolini 

PERSONAL GRAPHICS 


158 pagine 


Codice 5550 L. 22.000 


Vengono presentati e descritti un buon numero di 
programmi di grafica e animazione su APPLE. 

La trattazione inizia con i "mattoni" del disegno, punti, 
linee e superfici, prosegue con l'osservazione di figure 
nel piano e oggetti nello spazio e la raffigurazione 
realistica di complesse figure geometriche, sfiora la 
grafica del video gioco e si conclude con l'animazione 
stile Walt Disney. 


Michel Benelfoul 

METODI DI REALIZZAZIONE 
DEI PROGRAMMI 

Destinato agli utenti di personal con una certa pratica 
di programmazione BASIC, il libro propone un metodo 
per la realizzazione dei programmi. 

Per smitizzare il “dialetto" dell'Informatica comincia col 
fornire un glossario completo e rigoroso. 

È poi affrontato il problema dell'analisi di un sistema, 
con particolare attenzione al metodo di scelta 
dell'hardware, alle possibili riorganizzazioni del sistema 
ed alle esigenze di elaborazione dei dati. 

Col supporto di modelli basati sulla matematica 
moderna e sulla teoria degli insiemi si affronta infine il 
problema dell’organizzazione logica dei dati. 

96 pagine 

Codice 401H L. 10.000 


La Biblioteca che fa testo 


Reinhold Thurner 

PROGRAMMAZIONE STRUTTURATA 
Corso di autoistruzione 

Questo corso di autoistruzione insegna i principi 
fondamentali della programmazione strutturata, principi 
che sono comuni a tutte le effettive applicazioni di 
questa importante metodologia. Esso è concepito per 
aiutare il lettore a capire i costrutti ed a applicare 
correttamente le tecniche della programmazione 
strutturata Spiega anche e insegna l’uso corretto delle 
principali tecniche di rappresentazione strutturata usata 
in analisi e programmazione (diagrammi di flusso, 
struttogrammi, pseudocodice e diagrammi ad albero). 

136 pagine 

Codice 503A L. 13.500 
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INCREDIBILE 

TASTIERA - MIDI - SEQUENCER - BATTERIA PROGRAMMABILE 

COMPUTER COMPATIBILE... 



MK900 


MIDI KEYBOARD 


Tastie 



ortatile stereo - 
mpatibile - a doppia 
azione sonora 


Possibilità di 

collegamento a computers 



Una straordinaria 
ricchezza timbrica e una 
insuperabile versatilità 
sintetizzate in uno 
strumento a 
microprocessore dalla 
estrema facilità d’uso 




Midi Computer Interface 
(opzionale) 


Pedale d espressione 
(opzionale) 


MIDI IN e MIDI OUT 

10 ritmi + 1 ritmo 
programmabile dall'utente 

10 Presets a doppia 
generazione sonora 

Sequencer in tempo reale: 
260 note + pause, 50 
accordi, batteria per 
memorizzazione dati 


Divisione della tastiera 
programmabile che permette 
di suonare 

contemporaneamente 2 
timbri oppure un solo timbro 
con polifonia 14 



Demo Song 

Accompagnamento 
automatico multifunzione 

Controcanto automatico 

Transpose, Detune, Stereo 
Chorus 


Amplificazione stereo con 
due altoparlanti biconici a 
sospensione pneumatica 
incorporati 

Tastiera a 61 tasti 

Peso: kg. 6 

Distribuito da 

ARAMI NI 

STRUMENTI MUSICALI 



Cadriano di Granarono, via B Buozzt, lb (Bologna) 
Tel 051/766 077 


































